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IDENTIFICATION 


PRODUCT CODE: MAINDEC-11-D2CRA-D 
PRODUCT NAME: CRi1 DIAGNOSTIC TEST 
PROGRAM DATE: APRIL 1976 
MAINTAINER: DIAGNOSTIC GROUP 


re ret ment ION NS Gr BE CONSTRUE) 68 8 Conn e Thee nt gy ee Wt ite. 


POUTPRENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED \*~~® on 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE . 
TERMS OF SUCH LICENSE. 


pierre. 2h a ORPORATION ASSUMES NO ghee us oF OR 
eee pel Tee -ITY OF ITS SOFTWARE ON EQUIPMENT TIS 
Not PLIED BY C.GITAL. 


COPYRIGHT ‘C) 1972, 1976 BY CIGITAL EQUIPMENT CORPORATION 
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2. REQUIREMENTS 
2.1 EQUIPMENT 


POP-11 COMPUTER WITH 4K MEMORY 
CR11 CARD READER 


2.2 TEST DECKS 


ml Paltoec-3-bene-t OTE CT pe C fest DECK 


(FOR ERROR FUNCTION. TEST) 


EE Ea ee eee 


3. LOADING PROCEDURE 
PROCEDURE FOR NORMAL ABSOLUTE TAPES SHOULD BE FOLLOWED. 
8. STARTING PROCEDURE 


| 

} 

THIS PROGRAM HAS BEEN MODIFIED 7 TO, RUN ON A PROCESSOR WITH OR WITHOUT | 

ITCH REGISTER FIRST CUTED THE PROGRAM TESTS 

he heed GISTER. IF NOT FOUND A 
Tee “Te ciet REGIS TION (SWREG=LOC. 176 ) IS DEFAULTED TO. 

iF THIS I L EXE I 

DUMPED I GO tue CONSOLE THo ANY ANY CHEIIGES ARE REQESTED | 

(IE)  SWR=XXXXXX NEW= 

POSSIBLE RESPONSES ARE: | 

| 

| 


3° Bterts 0-7 a REPRESENT IND To . SWITCH REGISTER 
; neReY Toler rot OLLOMED Bcc 
3. tU T0 YO-ALLOM RENT ERING VA VALUE IF ERROR’ IS COMMITTED 


KEYING IN Sime SWREG VALUE. 
BUILT INTO THE PROGRAM IS THE ABILITY TO fe tg Me CHANGE THE 
CONT! NG PROGRAM EXECU 
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4.1 


CONTROL SWITCH SETTINGS 
BASIC SWITCH REGISTER SETTINGS ARE: 


ast & efeiit s PRAPPING 
SWll=1 NOTE. THAT IF Sud 15 Se1, THE CARD. COUNT 


of Eon ve Lecrnale IN THE 
SW10=1 OR UP---CR11 


CONTROLLER USE 
Rates he OR obi oa Rit ta TION 


OCCUR IF SW7 IS SET, THEN CLEARED. 
asp E TeSy MAY HANG WHEN THE INPUT HOPPER GOES EMPTY 
I 


SWOb=1 OR UP---RETURN TO THE BEGINNING OF THE INSTRUCTION TEST 
WHEN CONTINUING FROM ONE DECK TO ANOTHER 


SEE S.2.1 oar EXPLANATION OF SWS=0) 
SWO4=1 OR uP==-RUN THE af NARY TEST DECK 
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4.2 


4.3 
4.3.1 


4.3.2 


4.3.3 


STARTING ADDRESSES 

200 = INSTRUCTION AND DATA TEST 

5 = : Ear Futian 33 {ETH BoBoAarPBRCRE Aber 
50 = READ SINGLE DATA PATTERN TEST 

PROGRAM AND/OR OPERATOR ACTION 

INSTRUCTION AND DATA RELIABILITY TEST (SA 200) 


Ore TEST DEK IN THe CARD READER INPUT HOPPER, 


T (°RESET” ON DOCUMATION READER). 
ah TC N REGISTER 7 TO'STR STARTING ADORESS. 


SWITCH REGISTER IS AVAILABLE SET SWITCHE 
SETTINGS NGS BEFORE PRESSING START. IF SWITCH-LESS MACHINE SIMPLY 


eR The INPUT HOPPER IS EMPTY THE PROGRAM WILL HANG WAITING 


CE TRING Ie heat Gee Mest Oh ETRN- ro 


nas orf aE SEER OH RAL TET ne co 


ALL rato NOICATE FAI I ING THOSE SAYING 
Bly 6 OF SIT IS WAS SET. 


ERROR FUNCTION TEST (SA 210 OR 220) 
OQ THE INPUT HOPPER (DO NOT LOAD A 


PRESS ss th | Rasa ad Are RESET” ON DOCUMATION READER) 


Lorn THe Sal TCH Re ei STER IS AVAILABLE SET SWITCHE 


peTTINes yp oe POSS NG START. IF SWITCH-LESS MACHINE SIMPLY 
FOLLOW THE INSTRUCTIONS AS THEY ARE PRINTED OUT. 


SINGLE SUBTEST LOOP (SA 240) 
PRESS “ROTOR START™ ARO SRERD STARTS (RESET ON OOCUMAT TON READER) 
aie POR aT TCH ae IS AVAILABLE SET SWIT 


CHE 
SETTINGS oer Oe PRESSING START. IF SWITCH-LESS MACHINE SIMPLY 


PRESS 
WHEN ASKED, ENTER THE STARTING ADDRESS OF DESIRED TEST 
CODRESS ‘3 THE TESTXX TAG, WHERE XX MAY BE 1 THRU 24 


Se eo er ee eee ew eee en a 


Le eee eee SsSsSa_____e,_eOeOeOeeeeeE eee 
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4.3.4 SINGLE DATA PATTERN TEST (SA 250) 

186 08D. Tags 

18 CS OR START" AND UREAD START" (“RESET" ON 

131 

iss SETTING ErGndPacSSina Sta." ve fasting sor INE SIMPLY 

ig setae A ERLE AT ROE Hat AOE cr 

197 READER WILL CONTINUE THE TEST. 

133 : OPERATING PROCEDURE = 

01 5.1 OPERATIONAL SWITCH SETTINGS 

Be S.1.1 AT SA 200 CINSTRUCTION:AND SOTA RELIABILITY TEST) | 

oS SEE 4.1 

207 5.1.2 AT SA 210 OR 220 (ERROR FUNCTION TEST FOR CR11) 

Bag SWOO=1 TO INHIBIT TESTING THE DARK-LIGHT ERROR. 


SWi4=1 TO LOOP THRU THE CURRENT SUBTEST 
SW1S=1 TO HALT ON ERROR 


5.1.3 AT SA 240 (SINGLE SUBTEST LOOP) 
SEE 4.i FOR SR OPTIONS 
5.1.4 AT SA 250 (SINGLE DATA PATTERN TEST) 


SW15=1 TO HALT ON ERROR 
SW13=1 TO INHIBIT PRINTOUTS 
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5.2 SUBROUTINE ABSTRACTS 
S.2.1 BEGIN SA 200 
THE INSTRUCTION TESTS ARE RUN FIRST, FOLLOWED BY a3 CATA 


a ae EER the ate Fl 
OF Tet pecKs ee f THERE ARE STL bees oF Te are INPUT. HOPPER 
eect at ga defo ON TH THE re Pacha DECK. 


Ropeeh 13 EMETY Ar te 


ister ahead de TS FO TE SDE TE BE BE ie. 


HE DATA RELIABILITY TEST IS RUN ON THE ENTIRE DECK. 
ir set iT oan ine Heo PRE Dou FOR OPERATION AFTER 


BTESPELIORGS ETT PRA EEE Mex Oe Te 


S.2.2 SCOPE 


Ire tau crion er nfo AUT Reconos THe: Sra STATING RODRESS OF or EACH 
ites FRAT Pre OF T BETS f REQUESTED, le i HILL 


TERATION ON THAT SUBTEST BEFORE 
is ENTERED. SWITCH 11 ON A 1 INHIBITS Me Stone OF SUBTESTS. 


S.2.3 HLT 
S SUBROUTINE PRINTS OUT THE LOCATION COUNTER AT THE es | 
oF “Fattune AND THE CONTENTS OF THE PROCESSOR STATUS reais ER. 


NOTE THE LOCATION COUNTER WILL BE THE ADDRESS OF T 
HLT PLUS TWO. 
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ES 5.2.4 

rr a BRS ALLOWS akc: wt ST R THE FIRST 
Sec Nese suis te oer RST_ INSTRUCTION Obes ihe Upon 
Bee TRRPPING Te AN SRT tow NTERRUPTED SEQUENCE. 
2. THIS CONTINUES UNTIL THE END PROGRAM LOOP 1S REBEMED. 
268 5.2.5  TRAPCATCHER 

27] THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION 0 

272 DESIGNED 17 DETECT 


EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THe ADDRESS OF THE 
NEXT LOCATION. THE NEXT LOCATION IS LOADED WITH A HALT (0000 
THUS AN ILLEGAL TRAP OR INTERRUPT WILL CAUSE A HALT AT THE TRAP 
LOCATION PLUS TWO. 

IF A HALT OCCURS IN THE TRAP OR INTERRUPT AREA, EXAMINE REGISTER 
SIX. IT WILL CONTAIN THE CURRENT arack, ADDRESS. THE CONTENT 
OF THE CURRENT ST SS IS THE VALUE OF THE LOACATION 


STACK ADDRE 

COUNTER WHEN THE TRAP OR INTERRUPT OCCURRED. 

5.2.6 ERCRI1 (ERROR FUNCTION TEST) 
THIS TEST CHECKS OPERATION OF THF VARIOUS ERROR SENSING FEATURES 
OF THE G.D.1. OR THE DOCUMATION CxRD READER. CARD READER OFF-LINE, 
INPUT HOPPER EMPTY, OUTPUT STACKER FULL, FEED ERROR, MOTION ERROR, 
STACY FAIL, AND DARK-LIGHT ERROR ARE ALL CHECKED. 

5.2.7  TESTX (SINGLE TEST LOOP) 
THIS ROUTINE ALLOWS A SINGLE SUBTEST TO BE RUN CONTINUOUSLY FOR 
SCOPE LOOP PURPOSES. WHILE A SCOPE LOOP SWITCH OPTION EXISTS, 
IT REQUIRES THAT YOU ARE WITHIN THE TEST IN WHICH YOU WISH TO’ 
LOOP. IN (SUCH AS WITH INTERMITTENT FAILURES) THAT'S 
NOT EASY TO DO Ou THE ss 


INE ALLOWS YOU TO LOAD ADORE 
OF ANY TEST FROM TESTO TROT THRU TESTe4 AND TESTA THRU TESTG AT THE 
HALT AND THEN GO DIRECTLY TO THAT TEST. 


S.2.8 CKSAME (SINGLE DATA PATTERN TEST) 
iS TEST IS DESIGNED TO AID IN THE DIAGNOSIS OF DIFFICULT 
E ILITATE S RE 


SOURED EERE EERE ESE SR ERE otal total tad 


aTA ERR e 5 BND FAC mi ATE CARD READER ADJUSTMENTS 
FE Cowra Fez CARDS t DENTICAL)» CHECK NG THE 
DATA AGAINST A PATTERN SET UP NITIALLY. AN 
ERRORS ARE PRINTED OUT, ALONG WITH A COUNT OF R 
310 OF CARDS READ HE ft R OF DATA ERRORS WHICH HAVE 
311 OCCURRED SINCE THE TEST WAS STARTED. 
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$.3 PROGRAM AND/OR OPERATOR ACTION 
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EEK AE re ee “OF a THe FLAG RELIABI vert 
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Prose 


Press MOTOR Saat AND pts RT RESE DOCUMAT ION READE 
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a ee en | ee ee -_ 


ck ene: Md Tee ee OE es 


DOCUMATION READER? . 


THe’ PROGRAM ‘B AIEL 
CONTTIUE TOT St T DEER, Suto beTy MAY BE USED io” ALTER 


5.3.2 


TO GO ee a on aE SUBTEST AND RUN IT CONTINUOUSLY, 'ISE 


TAILS. 


THe AM WILL CONTINUOUSLY LOOP THRU THE DESIRED SUBTEST. 


6. ERRORS 
6.1 ERROR PRINTOUT 
6.1.1 STANDARD PRINTOUT 


a! oi TS_ARE Ne THe 
DETECTED 


THE SECOND IS THE CONTENTS OF THE PROCESSOR 
STATUS REGISTER AUHEN THE ERROR WAS DETECTED. 


Lis. wich Me 
e 
1 
1 


FORMAT. THE FIRST IS THE PC+e OF 


a ee ee ee ce ee eee ne - sore a+ 


BE 
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6.1.2 DATA ERROR PRINTOUT 


BERERRFE RESIS ISAS Saar e NNR nnRONEee 2 
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BRGRRESG 


+ 
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THE HEADING IS PRINTED OUT ONCE PER TEST DECK. THE COLUMNS HAVE 
THE sone pr tclsins 


COLUMN = RILORE 
PATTERN - cT N READ 
= ee ne wars 
READ THE FI IME 
READ2 “aus i WHAT WAS _IN orale ye A Ay TIMING LOOP. IT 
CODED 8 -THI SWAT T fas SHOULD IN OTN ENCODED. FORM 
READ “THI 18 WHT Mis READ Oe THE ENCODED BUFFER 
DATA ERRORS NOT TRACED TO CARD READER HARDWARE INCLUDE: 
. SWOY NOT SET TO TYPE OF DECK USED 
B. CARD MISSING 
C. CARD DECK OUT OF PROPER SEQUENCE 
D. DAMAGED CARD 
SINGLE DATA PATTERN PRINTOUT 


THE SINGLE DATA PATTERN TEST PRINT QUT Al HEADING WITH EACH 
ERR NTOUT. THE COLUMNS HAVE THE FOLLOWING SIGNIFICANCE: 


FERD He is bar nes alte B. ie F "FIRST REAOLIG. 
CARDS ARDS (IN OCTAL) ThAT HAVE BEEN RUN 


Bs Thee The OTe that earee- 
ERRORS -THE TOTAL NUMBER sre DETECTED (IN OCTAL) SINCE 
THE test WAS SYARTED 


“BIT 8 WAS SET™ 

" Le gd a SUBTESTS, BIT & a a? oe 
IN_THE paYa Test WHEN AN ERTERRUP chm tnt CURE DUE 19 afr rs CHE 
SET. a IT WAS otis he lent See 


"CONTINUES. FS PRIRTE ED OUT cima SOIT HALTS. ino Press 


READER GOES READER FUNC UNCTION ERROR 

OCCURS (CARD aM, Boe F “Pick Fal + Bs) ae C CARD RE cBRROR MUST 

BE FIXED AND + Be Put BACK ON-LINE THE 
ROGRAM CAN BE ME ONTIMIED. 


ERROR RECOVERY 
fo oe Ray ec aT i gg eer be on AND 
con aN MILL F RECOVER. ee PROGRAM Hangs UP" IN A iOee, pe 


A HALT OCCURS tN THe TRAP AND VECTOR AREA THE PROGRAM MUST be 
RESTARTED. 


ee  - ee - - ee 


eRe HASRHST 
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7.2.1 


7.8.8 


7.2.3 


ee ee ee ee nee 


RESTRICTIONS 

STARTING PROCEDURE 

NONE 

OPERATIONAL RESTRICTIONS 

COMBINED INSTRUCTION AND DATA RELIABILITY TEST (SA200) 


IF @ STANDARD TEST DECK IS NOT BEING USED, SW7 MUST BE SET 
TO INHIBIT RUNNING THE DATA RELIABILITY PORTION OF THE TEST. 


BNO IN CoO CONBITION.” IT 1s 8 Coto ibea'YO NORGER Tre CARDS 
N EACH DECK AS SOON AS THE DECK IS RECEIVED. 


en ee fe on eee ee ee ee ee 
ITCH REGISTER. 


ERROR FUNCTION TEST (SA 210 FOR G.D.I. READER - SA 220 FOR DOCUMATION READER? 


THE oT ae FUNCTION TEST REQUIRES SPARE CARDS, AS IT BENDS SEVERAL. 
ALSO, TO RUN THE DARK-LIGHT CHECK 2 CARDS MUST BE SPECIALLY 
PREPARED. THE Test WILL te hen A REQUEST FOR THESE CARDS WHEN 
THEY ARE NEEDED. 


1. TEAR A SMALL PIECE FROM THE LEADING EDGE OF ONE CARD. 
2. TAPE 2 OTHER CARDS TOGCTHER TO MAKE ONE “LONG” 
CARD - IT ONLY NEEDS TO BE ABOUT 1/2 INCH LONGER THAN 
REGULAR CARD 


SINGLE DATA PATTERN TEST (SA 250) 
a ag: a (ONE OR MORE CARDS) MUST BE PREPARED. ALL COLUMNS 


ALL CARD S ARE PUNCHED IDENTICALLY, USING A DATA PATTERN WHICH 
rat EST THE PROBLEM BEING DIAGNOSED. 
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8. MISCELLANEOUS 
8.1 EXECUTION TIME 
NOT APPLICABLE 
8.2 CARD DECK DESCRIPTION 
8.2.1 ALPHANUMERIC 


8.2.2 


f.3 


REFERENCE THE ean ao oR, i Re ae Ay 8 
IN THE LISTING FOR 


THE C 
PHAGE. OF FRAT COLUMN, “BAIL E tata Cu 18 lie Fe 


OF THE SAME PATTERN EACH SUECE SSIVE CARD IN ee 
SAME SEQUENCE OF CODES ROTATED ONE COLUMN TO THE LEFT 


BINARY 
REFERENCE THE BINARY DATA ‘AOL’ BEGINNING AT re TAG BINCD oo 


THE TET Cano. "as WITH THE ALPrERUMERTC DecK ERY SUCCESSIVE. ChRO 


THE SAME SEQUENCE OF CODES PR TATED ONE COLUMN TO THE LEFT. 
SPECIAL NOTES 


IF THE CARD READER GOES OFF-LINE BEFORE THE END OF AC 
BUSY REMAINS 07 UNTIL THE CARD ACTUALLY CLEARS THE READER. 


THE CARD READER GOES OFF-LINE DUE TO “INPUT HOPPER EMPTY” AFTER 
THE TH COLUMN OF THE LAST CARD IS READ, BUT BEFORE CARD DONE 
oc THUS, THE SPECIAL CONDITION BIT IN THE CSR WILL BE 
SET BEF ORE EBRD DONE ON THE LAST CARD. 

THE CARD S AN B29 HOD , SW10 MUST BE SET 
i T STO ORES RretS WITH THE "MODULE, CARD DONE 
NE VER R OCCURS OF TER THE LAST CARD IN THE INPUT HOPPE 


IF BIT 0 OF THE CRS IS CLEARED IMMEDIATELY AFTER uciNG SE 
THE READING OF f CARD MAY NOT OCCUR. SINCE THIS BIT IS W 
ONLY, A BIS OR BIC DONE AFTER SETTING BIT 5 MAY CLEAR THE 
AND PREVENT THE READ OPROn OCCURRING. 
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8.4 TESTING CR11’S WITH NON-STANDARD ADDRESSES 


SUBSTITUTING INTO THE LOCATIONS KCRS, KCRB 
Tre moore oes Te OS, 61, MO AND S ee EST 
VECTOR ADDRESS INTO ADINT, CRI MAY BE TE 


1, AND CRB2 
A GARD READER 
TUTING ITS INTERRUPT 
STED AT ANY 


3. PROGRAM DESCRIPTION 


THIS SET OF TESTS IS DESIGNED TO CHECK ALL OPERATIONS OF THE CR11 
ere rene MOST 


WITH THE NECESSARY EXCEPTION THAT TIMING IN 
CASES IS ONLY PARTIALLY TESTED. SPECIAL TEST IS INCLUDED TO 
Check sh THE ERROR FUNCTIONS OF ne G.D.I. 100 READE 
5 oe pre ror AS IT GOES ALONG. AT 
ISLATE er iat DATA ERRORS USING A SPE 
PUNGHE HE USER. 


19. LISTING% 


-ABS 

- TITLE OZCRA-D CR11 DIAGNOSTIC TEST 

-NLIST MD,MC, 

-LIST ME 

;DIAGNOSTIC FOR CR11 CARD READER 

:BY RICK FADGEN’ , 1972, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
; (MODIFIED AUGUST-71 FOR DOCUMATION CARD READER (JOHN RODENHISER) ) 

; (MODIFIED APRIL-72 FOR HARDWARE ECO) 

;MODIFIED MARCH 1976 FOR SWITCH-LESS PROCESSORS BY RON PLATUKIS 


;STARTING ADDRESSES ARE: 

: 200=INSTRUCTION AND DATA TEST FOR THE CR11 

; 210=ERROR FLNCTION TEST OF CR11 (GDI) 
220=ERROR FUNCTION TEST OF CR11 USING COCUMATION READER. 
240=SINGLE TEST LOOP 
2S0=READ SINGLE DATA PATTERN TEST 


SWITCH a ee SETTINGS FOR THE INSTRUCTION AND DATA TEST ARE: 
SWO4=1 FOR THE BINARY TEST DEC 
SWOS=1 TO et eck AT THE END OF A STANDARD 80 CARD 


=0 TO CONT TE FROM ONE DECK TO THE NEXT. 
AFTER THE LAST DECK IN THE HOPPER IS 
RUN, THE PROGRAM WAITS FOR THE CARD READER 
To ¢ eR NS THRU 


ee ee re ee te re re 


| O2Ct 
D2Cr 
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Dzo 
: TA S RESUMED. 
248 : SWO6=1 TO RUN THe Conn HReTROCY YON ARO ORT io} 
cay ; CONTINUING F 
45 : =0 0 RUN ONLY be a n EVERY ad “PETER THE FIRST 
46 : SWO7=1 TO RUN ONLY T lon 
54? : SETTING SWO6 AND AT THE ENO ie BECK 
4g : CAUSE THE INST TION TES fest I To BUN CON cOnINUGLSL FROM THEN ON 
ne ; NOTE: I : I “ear i : D THEN 
rl : CE Ee a aute re hit 3 ne test ri “tor 
coe ; BE THE ONE EXPECTED. WITH SK? SET T 
= : SW!1D=1 eRe tee Eat t PNB TNG CF oes USES THE 
356 : =0 TO INDICATE THAT THE CRI1 BEING TESTED USES THE 
¢ 
5S8 SW1l=1 TO INHIBIT SUBPROGRAM ITERATION 
Ss] (NOTE THAT IF PROGRAM FLOW IS ALLOWED TO ENTER THE 
560 OATA SUBTEST B ERRORS WILL OCCUR SINCE THE 
561 : CARD COUNT WILL Be INCORRECT 
S62 Swl2=1 TO INHIBIT TRACE ING 
5&3 SWl3=1 TO INHIBIT PRINTO 
ce4 SWl4=1 FOR SCOPE L 
ces SWiS=1 TO HALT ON ERROR 
a4 
5&7 
css 177776 F5R=177776 
=69 oo0240 NOP=240 
$72 i HLT=EMT 
671 104001 COPE=EMT+1 
o72 CNTLU=EMT+2 
573 104003 KBINTT=EMT+3 
574 19490": READC=EMT 
575 10400S =EMT+ 
576 104006 CKUSEMT+6 
577 104907 TIT=EMT+7 
578 oo0009 ADINT=~0 :CONTAINS ADDRESS OF INTERRUPT VECTOR 
575 000001 COUNT=%1 sUSED FOR TIMING, ETC. 
Sec socode R2=%2 RATCH 
581 900003 CRS=%3 TAINS ADDRESS OF CARD REAL STATUS REGISTER 
52 00004 CRB1=%4 iEONTeINe ADDRESS OF CARD READER BUFFER (12 BIT DATA) 
83 o9000s RS=4S TCH 
tes 99550 SP=76 ; STACK POINTER 
ec PC=y, PROGRAM COUNTER 
4 sLOAD TRAP CATCHER INTO LOCATIONS O THRU 377 
537 "LOAD TRAP VECTORS 
=e pocc14 214 
£53 900014 d9064e TRTRAP 
€3¢ 3O0Sle 900346 340 
=3] 900039 230 
ge 900030 Ble7se EMTSRY 
532 323032 S050 340 
ix 2000se = 
Sse Docmt Tteste LOGIC 


0 sb = B= bo be he be be > + bb be bb be bb be 
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;SOFTWARE SWITCH REGISTER LOCATIONS 


pisenec: 


;LOAC STARTING ADDRESS AREA 


- 2200 
NOV TACK, SP 
ie BEyIN NORMAL STARTING ADDRESS FOR 6.0.1. 100 REACER 
ne ER Ril STARTING ADDRESS FOR CR11 ERROR FUNCTION TEST (6.0.1) 
IMPs ERC STARTING ADORESS FOR CR11 ERROR FUNCTION TEST (DOCUMATI 
HOV. aSTACK.SP 
IMP sSTESTX STARTING ADDRESS FOR LOOP WHICH CONTINUALLY RUNS 

:ANY SINGLE SUBTEST 
rov aSTACK, SP 
JMP ss CKSAME STARTING ADDRESS OF TEST TO READ A SINGLE DATA 


*PATTERN CONTINUOUSLY 
;LOAD POINTERS AND GENERAL STORAGE 


te a ;STACK POINTER INITIALI TO POINT HERE 

NTFLE: ‘CONTAINS LEVEL THAT INTERRUPT IS FOUND AT 

INTVC: 230 [ADDRESS OF CARD READER INTERRUPT VECT 

KBCSR: 1 

KBDBR: 177562 

TCSR: 177564 sADORESS OF TELETYPE STATUS REGISTER 

TDBR: 177566 sADDRESS OF TELETYPE DATA BUFFER 

SUR: 177570 

mh : ah et 

TIFLG: -l 

TIB: 

CSNT: 4 

KER; | 177160 SAEORESS OF CARD READER STAs TSTER 

KCRBI: 177162 SOBRE OF CORD REAGER Bar ioe eels" 

CRBe: 177164 sADORESS TO READ ENCODED DATA 

TRTRAP: RTI se TURN OOP 

TRFLG: O :T oi SWITCH BETWEEN TRACE TRAPPING AND NORMAL 
PROC: 0 sg foes PROCESSOR STATUS WHEN TRACE TRAP MUST BE C 
ERFLG: 0 ae, AR SERS TO OUTPUT DATA ERROR HEADING 


INITIALIZE CSR AND DBR POINTERS 
SETUP: can %7, TOUT 


ie 

te 

MOV 81, ITMAX :SET ITERATION MAXIMUM TC 1 ITERATION 
MOV KCRS, CRS :SET UP REGISTER POINTERS 


FLO 
LEARED 


ne ae me ee ee = ne eee eee ome ee 


er ——— i. ee -_ - -.- — a +e ee ee ie ee ee me ee ee ee ee a ee es since 
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016708 = 177734 K 
Mec a sO AEP v=" 


Ba Ie 

RS MSS ares i a Vast ed 
| 
| 
| 


ie 016214 esc T1, Re 

Ee Ws Re a 
ed 

a? 


acseeras 


000176 177646 


§ 
Z 
and 
: 
g 


Tt RPELOR ET 
i Phar eH 
a ert aT TO CLEAR TRACE BIT 


OOOS4O 177004 NOCTRP: 
010000 177614 TRAPX: 
000360 176764 


aRTBaRAE 
a 
2 





-TEST FOR CORRECT INITIALIZATION OF STATUS REGISTER 
012767 001022 011130 test: MOV STESTIA,RETURN ;SETUP SCOPE LOOP RETURN ADORESS 
010460 STIA: Fe . %7 ,CKBITS sCHECK FOR OFF-LINE SET 
16767 176744 177612 MOV PSR, PROC :ST STATUS 
7? 176736 CLR PSR : T 
1 CLR COUNT : INITIALIZE COUNTER 
005201 INC COUNT smal TO rete ae 
Gozo! ss COUNT ; THR art ING 
l BNE "2 : INI 
ip nike 177570 176716 MOV . PROC, PSR 0 0 SSOR STATUS 
13 ee acrs Ge Von cta STATUS REGISTER ALL ZERO 
6 140 ag +4 
1 TATUS REGISTER NOT CORRECTLY INITIALIZED 
i rare a] TS 6 OF ad STATUS REGISTER SHOULD BE ABLE TO BE SET TO CE 
6% 001 052713 177776 bls balck sof ;SET ALL BITS BUT O 
6% O01 022713 000192 #102, aCkS : ONLY BITS 4 FeO 6 SHOULD BE SET 
6 901100 001 Bo ‘ : 
6 1102 1 He *STATUS REGISTER DIDN’T CONTAIN 102 
698 001104 OOO404 TEST2 : BRANCH FAILURE | 
699 FF EARING STATUS REGISTER SHOULD CLEAR BITS 1 AND & 
re ait ate IBER Prat ns cue | 
ree Boilie Boi4dl Ba +4 iGRaNCH Tf Ok 
703 901114 104000 BIT 1 AND/OR BIT & DIDN’T CLEAR 
i 
705 001116 104001 TEST2: SCOPE 
706 ; START CAUSE CARD DONE WITHIN 1 SECOND 
‘BIT 0 ALWAYS READ AS BEING EQUAL TO ZERO 
708 001120 004767 010362 JSR “7, CKBITS :CHECK FOR OFF-L1I 
709 901124 016767 76646 177514 MOV PSR, PROC :STORE CURRENT EROCESEOR STATUS 
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18,8 3283 
wih 
a 


3.81818 


# 
; 


% 


pian i Ett Ft Flea 1 


HLT 
BR TEST3 
CONTe: BIS #40000, dCRS 
BIT #40000; 3CRS 
cee +4 
HL 
TESTS: SCOPE 


Siar cres 


(BIT 
JSR 
CLR 
INC 
BIT 81000, aCRS 
BNE 
HLT 
BR TESTY 
LOOP3: BIT #40000, acrS 
BNE DONES 
BIT 81000, aCRS 
BNE OL 
IT ; 
TEST4 
oe SCTESTY 
pone3: Bir  #1000,aCRS 
BeoTESTY 


TRIS Bae B88 cen J 


SHOULD BE CLEARED 


COLE FER aD S BE CLE 
i g x que ier 
SIN T 


D002 
21-SEP-76 16:56 


Rermin Ser OTL GARD Don 


? 


Th CARO 


WAIT 


seers eeaes ee ee 


;RESTORE PROCESSOR STATUS 


: CHE 

EOF Me TF 

sCARD Done DI ION’T SET WITHIN 400 MS 
s;NOTE THAT FAILURE COULD BE DUE TO READ 


aT OFS Brae RecISTER SHOULD CLEAR 


BH ETT 2TBe como ooe 


ae WHTCH ead CLEAR IT 
soiiesatiea REGISTER 
; CHECK BY 
meen, Ba A CARD DIDN’T SET BUSY 


;BRANCH IF STILL SET 

;CHECK CARD 

;GO0 TO NEXT TEST IF SET 

;BUSY CLEARED BEFORE CARD DONE SET 


pete tS No NOT Aa ae 
CIAL CONDITION BIT WHEN CARD OCCURS 
BY T I NTED FROM RESETTING 


: 
2 
=a 
aa 


REGISTER 


ec a a a ne + ee ee te. ee ee se ee ee 


ee a ne eee 


ee ee + re eee 2 = eee 


Fe re ORC ESE eR Bae IR SER M Ia tl vaoe 


MODWwWDOoOwmwmnmowmd 
BH ee ree 
WONMUSWlheO 


be 


| 


- a cn ee ee ee gina gg are ein A RTE Oi a I cit se TaN ae 






ORI DIAGNOSTIC TEST MACY11 27(1006) 21-SEP-76 16:56 PAGE 18 
12-MAR-76 00:00 
001336 032713 140200 LOOPY: BIT #140200, acrs its FOR AL CONDITION, CARD DONE, 
LOOPY : 
y a713 140000 Bis #140000, acrs ise CARD DONE? 
1 Hh 
is ten one: fo ST a 
gers 140000 I 8140000, acRs it BNE TION OR CARD DONE 
366 GBiaT BR LOOPYB oa Aree AGAIN 
: 040000 CK4: IT #49000 , acrs ieee 
1 HL a : SPECIAL ITION SET BEFORE CARD DONE 
colMGe o F rl acs ;CHECK SPECIAL CONDITION 
i : I WASN'T SET 
BIS HERS onan core: AT go, axes EEE TTS 
001414 001001 BNE +4 
001416 104000 HLT THING WASN’T SET 
1 C COUNT H OF READYS 
1 1 +6 : F 
1 1 HL ; 
cates rat Bo ‘3 F ONLY 
001 1 HLT ; OO Ue FE ot THAN ONCE 
1 108713 TSTB aces i CHECK 1 Y 
140 I ‘ae :COLLEN READY WBEN’T CLEARED 
001442 00501 CLR acRs : BITS 11,14, AND 1S VIA DATO 
001444 932713 144U00 BIT 8144000, OCRS CHECK 
01 00140 Brg +4 
1 l HL sBITS 11,14, AND 1S WEREN’T ALL CLEARED 
001454 104001 : 
; Tine SHOULD CAUSE COLUMN READY TO SET 80 TIMES BEFORE CARD DONE SET 
“READING THE DATA BUFFER SHOULD CLEAR READY AND PREVENT A TIMING ERROR 
nt a 007752 JSR %7, INIT : init ATUS REGISTER 
Be Es aco ws: Henao co oe 
oaLre o01775 Bed 4 Ct OR SPE TAL ITION ” 
1500 O0101 — ae _ iC a ae 
001502 005713 “ST acRs *CHECK BIT 15 
001504 100002 BP 4% ae He T IF NOT SET 
cata ete BR TESTS G0 TO TEST 
001512 020127 000117 CMP COUNT, #79. s CHECK FOR 80 | 
001516 100363 BPL LOOPS IF 80 OR MORE WITHOUT CLEARING READY 
mies Hey see a 
001524 105713 TSTB. 3s CRS ire SURE IT CLEARED | 


00iSe& 100001 BPL +4 :BRANCH IF IT DID 


eee eee eee nnn eee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeEeEeEeEeEeEeEeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeEeEeEeEeEeEe=aOSEOumaeEeoeoeoEouoeoeEEeEeoeEeEeEeEeaeaeoeEeEeEeEeEeeeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEEee— 
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| DZCRA-D 
, DZORA.SRC =: 12“ NAR-76 
1530 T i READING DATA BUFFER DION’T CLEAR READY 
: es Biss 13 004000 CKS a w000, CRS CK TIMI BIT 
¢ : 
«BBN et : Tae eer 
8 Lamee WORE. THAN 
| 828 : A Tinie ERROR A SEL Be BW cau ora 
| B50 Boley 14 essen é count, tab Bie ae YS OCCURRED 
| bse ppt ees 1 HL ’ Sea UR 80 TIMES 
| 1 1 040200 @crs, #40200 ar OE EO bone IND COLUMN READY SHOULD BE SET 
«BRS Be 5% 
| 836 OO1Se4 1 HLT ;STATUS REGISTER IN WRONG STATE 
«= asad ead 000200 cn sche #200 is OSE RLY EAB cer ee 
a3 iS Bais 1. a Lae be N WRONG STATE 
I 
841 001 sat) TST QCRB1 ‘READ Ye be R_SHOULD CLEAR COLUMN READY 
B42 001602 13 TST acrs ; CHECK c OAR 
B43 01 1401 BEG +4 HI 
av 1 1 HL + err ue GI ig QUAL TO ZERO 
ae vanes tesco THING MING a PRO T BIT 11 EVEN TF IT OCCURS AT COLUMN 8 
aug 2A DATOB Hie LOM Cow BYTE. OF Heb RB ERE 6 SP OLERR BITS te 14. BND : 
B49 ooi6l2 004767 go7b16 JSR % X2,INIT : INITIALIZE | 
Bet ratte pests INC Scag? CUNT PM SOT A CARD 
ese atte ionsre LOOP6: TSTB acCRS *WAIT FOR COLUMN READY | 
fed 1 14 Pe 2CRB1 ;CLEAR COLUMN READY 
85S o1bs2 1 DEC COUNT *GO THRU LOOP FOR 1ST 78 COLUMN READY’S 
be ips 13 144000 art $1 , @CRS sal FOR CARD DONE OR TIMING ERROR 
858 O01642 00:775 BEQ 4 OR SPECIAL CONDITION 
B53 Ooley4 032713 o40000 BIT 840000, acRS or mace | 
861 O01 2713 O04000 ae 84000, aCRS ye, TIM Be TE 
B62 OO1ESE OO14I6 BEQ OFF itr NOT otis READER IS PROBABLY OFF-LINE 
Be. Ooleee | ipoaeT Bag 
B65 OO1664 104900 HL : pence hae DIDN’T CLEAR READY 
B66 001666 005713 TST acrs :WAIT FOR SPECIAL CONDITION 
867 001670 10037 -2 | 
868 001672 032713 O4O0000 BIT #40000, 3CRS mony Ph 
869 001676 001406 BEQ OFF aa NOT PEADER IS PROBABLY OFF-LINE | 
Lie GET won BP Floss Be ANTE oS 
872 001706 001415 BA thetge : H i CLEAR tO NEXT TEST 
873 001710 104000 HLT *DATOB TO L 670k OF CRS DIDN'T CLEAR 
gr ; iT: 15 Ae: i 
001712 0004!3 BR TEST7 GO TO Next T 
876 001714 032713 ooD400 OFF6: BIT 8400, a°RS ‘CHECK BIT 
877 001729 O01010 BNE TEST? BRANCH IF ger 


—< ee en eee ee a a a rt re 


~_ eee =e we ew ae - ae er ne ee ee ee ee eee oe - ee nn me en a mm ee me ne7y 


_ . ~ ee eee ee ee a ee ee ee nn ee ee ey 
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878 001722 104000 HLT i 1S WAS SET 8 WASN’T 
1 noo nlg ERnOn Next Jeg! , 
; : : 004000 ERRE: 40 ,acrs : T? 
3¢ l TIMING T BEFORE CARD DONE 
re t forest? oe rex TESLA SPrTER E RROR 
ges 001740 104000 HLT 
oo0i742 104001 a, piety 
: THE EIGHT! OLUMN TA FROM THE BUFFER 
oo FARCE FB AE AE cn 
385 OTN E SHOULD. CLEAR TIMING ERROR, AND BIT 1S SHOULDN'T SET 
890 :INCB Lehr 
5a 001744 004767 007464 ISR %7, INIT s INITIALIZE 
B33 O017S0 Ousel3 INC = CRS ;START READ 
8% O01 Ol2701 oc9120 MOV #80. , COUNT ‘INITIALIZE COUNTER 
895 001758 032713 140200 LOOP7: BIT #140200,0CRS § :TEST FOR ERROR, DONE OR READY 
B% OGi7be 001778 BEQ  L0OP7 SLOOP IF NONE SET 
pal G01 765 TST aCRS CHECK ERROR 
176 1 +6 BRANCH IF NOT SET 
899 001770 104000 HLT *BIT 1S WAS SET 
300 001772 BR TESTS G0 TO NeXT ones” AFTER ERROR 
$01 001774 13 040000 BIT #40000, aCRS CHECK F 
S02 002000 001013 BNE DONE? "BRANCH IF SET 
903 O0e002 005301 DEC COUNT : COUNT 
904 002004 001402 BEQ +6 TF BOTH COLUMN READY, BRANCH 
80S 905714 TST acre : CLEAR 
906 00201 bo07be BR COOP? : LOOP 
$07 OO0cOl2 032713 140000 BIT S14000C,aCRS § :WAIT FOR °' OR SPECIAL CONDITION 
908 002016 001775 BEQ 4 
309 13 TST aCRS ; CHECK SPECIAL CO CONDITION 
910 1 BPL DONE? BRANCH I 
911 O02e024 104000 HL : SPECIAL CONDITION WAS SET 
313 Seonse poevat pone7: ‘fet ChUN :@ Bich TER UN READY S 
314 cathe BEG 46 :8 a 
81S 002034 104000 HLT READY 0 D NOT OCCUR 80 TIMES 
916 002036 000433 BR TESTS AFTER ERROR 
9i7 002040 105213 INCB cm 
318 goeo4e 105713 TSTB = BCRS : eK Chea Y 
91 100401 BMI : STILL SET 
$20 O0c046 104000 HLT ‘READY DID NOT REMAIN SET 
$21 O0°0S0 Sire 004000 ay 84000, CRS : TF TIMING ERROR 
355 pspee 7851 Ef acrs i CHECK COLUPN ADY 
$24 002060 100002 BPL +6 Ser 
= es ine Og | NE arr tines 
927 002066 112713 o00002 MOVB #2. aC ont EJECT 
$26 002072 032713 OO4000 BIT #4000, aCRS :CHECK TIMING ERROR 
$29 002076 001402 BEQ +6 : BRANCH IF CLEARED 
$39 002100 104000 HLT ‘TIMING ERROR NOT CLEARED. BY DATOB 
93 0623 000411 BR Testa :G0 TO NEXT TEST AFTER ERROR 
$32 02104 032713 1490000 BIT #140009,3CRS § :WAIT FOR DONE OR SPECIAL CONDITION 
923 902119 001775 BEG 4 
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000400 BIT #400, aCRS ;CHECK B 
BNE TESTO : A ast R cee: 
: 'T SE 
aM : RreB TT NG ERROR 
HL : if * ange. 8 WASN’ 
;BRTA SHOKLD BE ay AVAILABLE IN THE gT_LEAST 1.0 MILLISECONG 
rps’ 176504 MOV A NI ‘IAAL a Thue REGISTER 
175630 CR por ig te. Teece. rt BIT 
140200 LOOP8: BIT #140200, aCRS ia - ACY OR CARD DONE 
at, he Lem cou fee 
040000 BIT 840000, 2CRS 
BNE DSRCKB es. GO 0. cue STROBING OF DBR 
TST aCRS " CHECK BIT 13 
BPL +6 + BRANCH TF 
BR TESTS 3 10. I te AFTER ERROR 
CLR acrs :DA SHOULDN’T CLEAR BUSY OR READY 
001200 CMP #1200, CRS TECK ya SY eek READY 
BEQ “+6 ; BRANCH F TLL SET 
HLT :CRS_IN WRONG STATE 
BR TEST ‘GO TO NEXT TEST AFTER ERROR 
MOV JCRB1 RS ‘STORE DATA 
000300 MOV #300, COUN : INITIAL R 
DEC COUNT *WAIT FOR 1 MILLISECOND (APPROX. ) 
CMP aCRB1,RS ;DATA UNCHANGED? 
BEQ LOOPS 0K, CONTINUE 
HLT DATA NOT AVAILABLE FOR 1.0 MILLISECONDS 
BR TESTS ?GO TO NEXT TEST AFTER FaiLURE 
176402 DBRCKB: MOV 2. Re STORE ENCODED DATA IN REGISTER 2 
000100 MOV #100, COUNT : SET R 
CONTB: CMP acrel RS : IMAGE DATA BUFFER 
BEQ +6 : UNCHANGED 
HL *CRB1 READ INCORRECTLY 
BR RESTB ; BRANCH TO RESTORE PROCESSOR STATUS GND EXIT 
176362 CMP aCRBe , Re *READ DATA BUFFER 
BEQ 46 BRANCH IF UNCHANGED 
HLT ;CRB2 READ INCORRECTLY 
ER REST ; H AFTER FAILURE 
DEC C : DOWN 


OUN 
BNE CONTS ;LOOP IF NOT DONE 
1763S2 175500 REST8: Nov PROC, PSR RESTORE PROCESSOR STATUS 


TEST9: SCOPE 
SETECT SHOULD PREVENT FURTHER COLUMN READY’ 

? CARD STILL OCCUR, AND. TIMING E SHOULD BE 
jPREVENTED, IF THE E CURRENT CO COLUMN READY IS CLEARED 


007130 J s INITIALIZE STATUS gREGISTER 
175466 176334 MOV ph PROC “SAVE PROCESSOR STATUS 
175460 CLR PSR’ ‘CLEAR TRACE BIT 


ay aes TEST 





' DZCRA. 
| sak 
ar BES Te 
3 i 
$95 0c 1 
998 
999 1 
1000 002346 104000 
ie Bee ber 
100¢ 040000 
100: 1 
1004 002360 G3e713 000200 
{poe peesee Povoo 
002370 00401 
opsse5 ita 176246 175374 
ooe40e 104001 
po24o4 004767 007024 
012710 002464 : 
Breen Iaesb 
ae 
016067 o00002 175320 
105013 
104000 
9 _3 040000 
00100 
104000 
1 
100001 
168001 
1035 002510 104000 
sd moses That 0002 
1p39 _ 
1040 002524 104001 
1041 
104 767 0067 
1 12710 
1 000340 175232 
1045 302544 016760 26 oocd0e 


ee ee ee ee ee — oo ee 
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tRAIT FOR COLUMN READY 


fst send tt Eile Reap 4 MYCROSECONOS ONCE THRU 
WAITS: BIT suie200 ,acRS WAIT FOR DONE, TIMING ERROR, OR 

INC COUNT 0h FOR hn a SECOND 

BNE WAITS 5 CON TINE WAL : 

HLT ane iit One OCCURRED. WITHIN 3/4 SECONC 
CK3: Bi s ,aCrs TIME CARE DORE 

BIT #200, CRS C4 ,COLURN MN READY 

arf OC UMN N READY. uae ser 

a ne I NT_A_TIMING ERROP 
RESTS: Ov PROC, PSR ‘Bee One PROCESSOR TATUS oes 
TEST10: SCOPE 
:CARD DONE SHOULD CAUSE AN INTERRUPT 

ISR s INITIALIZE 

nov STtNTIO @ADINT NP ¥ 

ov Pane 2(ADINT) ee eH LEVEL, 7 STATUS 

BIC #340, PSR SET PROCESSOR PRIORITY TO TO 0 = 

BY Etat Sins «dni eae” 

HOV S(ADINT) ,PSR poh en maET Ewe. TO HIGHEST PRIORITY 

HLT *NO INTERRUPT OCCURRE 

BR CONT10 

TINTIO: BIT #40000, CHECK CARD D 

HLT : fh 

or Sapa"? (SP) tare INTER. CURRED 

BPL +4 

T IT 15 WAS SET 
iste acrs heck CHECK COLUMN READY 
HLT SCOLUMN READY WAS SET 
710: nov re @ADINT sDISMALE ATERRUP T RET TURN 

oe CLR 5535 + Catist A HALT IF AN INTEREUP? OCCURS 


TEST11: SCOPE 
;COLUMN READY SHOULD CAUSE AN 


JSR “47, INIT 
MOV artis DADINT 
BIS 

MOV PSR, 2(ADINT) 


ee a ee eee ee ee Ce ee 


ER le 10 


1 PROGESSOR orATUS TO LEVEL 7 
‘GAD RETURN PROCESSOR STATUS 


ee 


ae 


ot 
4 
= 


See 0 EE 
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TIC_TEST 
:90 


000340 
000101 


000232 
000232 





175216 


175200 


175130 
o0000e 
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BIC SET PROCESSOR PRIORITY TO O 


uit 26h Fin CORUAN"RERBY ENAELE 
3 ie nea 


ONT11 
TINTI1: aR gene ;CLEAR INTERRUPT ENABLE 
TSTB = @CRS MAKE SURE COLUMN READY IS SET 
+4 ; BRANCH Na 
HL ; COLUMN Y WASN’T et 


CNP 
CONTIL: ROY SEg,CROINT +O eatice A CRACT IF ANG TUR, BORE OCCURS 


ee Ne. SHOULDN'T AN INT T IF THE PROCESSOR IS AT LEVEL 7 PRIORITY 
: J “7 Inthe NTT 


T 
H meee YEN TO LEVEL 7 PRIORITY 
MOV PSR. 2. ADINT) :L ORD RE 


MY Hilo stes | River ea'bawe Ome MO Ro 


BR 746 conte IF a NTERRUPT OCCURRED 
TINT12: HLT nt 

CMP (SP)+, (SP)+ PRES S ACK POINTER 

CLR aCRS ; CLEAR INTERRUPT ENABLE AND EJECT 

MOV #232, @ADINT {CHANGE INTERRUPT RETURN ADDRESS 

CLR as23e TO CAUSE A HALT IF AN INTERRUPT OCCURS 


32 THE Level AT WHICH AN INTERRUPT OCCURS 
PRINT OUT A MESSAGE STATING THIS OcouRS AT 1 4 IT_IS OTHER THAN THE STANDARD ‘LEVEL 6) 


KE Aer E STATING THe CEvEL, {5 PR Ie ED Ont Ofc AND THE PROGRAM MUST 
BE ST; FEN bod FOR IT TO Fe AGAIN 


, TEST FOR AN INTERRUPT ON LEVEL 7 


TEST13: SCOPE 
ISR 47, INIT ; INITIALIZE 
oy TINT onorn a Probe Seon PRIORITY 107. 
MOV PGR PER 3 ADINT) 
BIE $i Fas 3 "PROTER HO Oe Y 70 hay 
BtY EE ee ee 


BE | 
clk S<QDINT) ,PSR Oise FinTEReUPT TO HIGHEST PRIORITY 
ft ihre eh aa aa eS? Ot 


BPL TEST14 . GO TO NEXT T 


me nn i 


KOe 
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1102 003010 026727 175566 100007 CMP INTFLG, #100007 ; IF CHECK TO SEE 
| i BNI TESTIY’ i THAT a INTERRUPT VEL RECORDED 

118s HLT Hire 7 Doh CUR WITH STATUS 

i; Ql iat T PREV VIOUSLY OCCURRED 

| 107 :A SE ebout FHIS LE 
1108 BR TESTIY 

' a 040000 TINT13: BIT ,aCRS ;MAKE SURE CARD DONE IS SET 

' 4g +4 BRANCH IF SET 

; dd HL , 

HB YS sone Ele steter Ra ere 

; Qs pppSas CLR so365 CHANGE INT A HALT IF AN INTERRUPT OCCURS 

. TUS CMP (SP)+. (SP)+ iRe SrEDx Fol Pt POINTER 

1118 175526 TST INTFLE CK PREVIOUS FLAG 
ill BMI SET? _—: BRANCH f 
1118 100007 175516 MOV #100007 {NTFLG ;SE FLAG FO LEVE 
1138 Ba saee Ney taut eae pe cheeN 1 INTERRUPT LEVEL was” 
lll 000007 MOV 7;Re 

lige 006630 JSR 2, PRO PROCT ;PRINT LEVEL NUMBER 
lies 175470 100007 SET7: CMP nTFLG, ,#100007 ;CHECK PREVIOUS LEVEL 
ii hy s INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL | 
1128 ; TEST FOR aN INTERRUPT ON LEVEL 6 
1129 SINCE TH THE CARD READER NORMALLY IS, DON’T PRINT OUT A MESSAGE 
1131 003120 104001 ideria: Ta ope 
1132 O03le2 767 006306 INIT ; INITIALIZE | 
1133 003126 012710 003216 arian QADINT :SETUP RETURN ADDRESS 
iz iets 1 : Boe SFR Oat) eet ip Baer ah 10 tus | 
tise Dosiae DNevE? doosse ouRes Bre | SuOCPoR SEI PROCESSOR Pi 90 3575 | 
1133 Bostes Gieris boniGs ee oS Tao beks | EJECT INTERRUPT ENRELE. AND READ 
1139 003166 piss is 040000 BIT #40000, ICRS Fae EE beat Bone 
1140 003172 001775 BEQ 4 | 
1141 003174 016067 o00002 174574 MOV 2(ADINT),PSR; RESTORE PROCESSOR TO HIGHEST PRIORITY 
Lise 003202 0605013 CLR ocr anil :DI I PTS i | 

ie * ' 

{ida acatd Bp NSS CLR seaes TO Rice eid fF AH INTPRERET OCCURS 
ie aasle nea 040000 TINT14 err wo0oe acrs DONE IS SET 
1147 pessis 001001 ” BNE of ea iBrenich TF a 
1148 003224 HLT 
tied ei What 32 aor eH BADINT ae nies eR TATERRUPTS Ff 
112 32 CLR atese Haga IF AN LRONTEREP? OCCURS 
1152 Deebeb CMP (SP)+. (SP)+ Bex ce Fob Pe JPOINTER 
1153 7 175334 TST INTFLE CK PREY 10US AG 
ize eSEETe 2 190006 175324 a en INTFLG SET aie aD "te 
tiée Qossee Breans teers” 
1157 003260 026727 175316 100006 SET14: CMP INTFLG, #100006 ;CHECK PREVIOUS LEVEL 


a ne See eee eae eee ee eee eee eee eee oes eee hl O—o 4 


, DZCRA-D CR11 DIAGNOSTIC TEST 
DZCRA.SRC 12-NAR-76 00:00 

1158 003266 10000) 

1189 003270 104000 

ue 

lige 003272 1 

He 003274 O04 ; 006134 

site 003300 p1e710 003410 — 

Hee GBR Higes aS anes 
, 1168 003326 Deore? 17444e 
' 1169 003334 012713 000103 

ie Gare Gere vom 

Hs HRS HR coome srwee 

oe 

is 003362 ed ett 

1 He ik 

1178 003374 Oe67e7 175202 100005 

Hos See Sere 

116) 1 

ll 

HE coo coors 

1185 10 tent o4 

1186 003414 1001 

1187 003416 104000 

1188 003420 005013 

1189 O034e2 012710 O00232 

1190 O034e6 005037 000232 

1191 O0343e Oeebeb 

is 003434 TOM 175142 

1194 BOSE bre767 100005 175132 

1195 003450 Ole70e 014503 

1196 O034S4 004767 poeire 

1197 eae 12702 

1198 767 006244 

pos 003470 OO040S 175108 1 

i Bas fg, 7S som 

1e02 003502 104000 

1203 

1204 

1205 003504 104001 

1206 003506 767 005722 

1e07 O0035le 912710 O036ee 

1e08 003516 OS2767 O00340 1742Se 

1209 003524 016760 174e4% 000002 

1210 poses 042767 8 174236 

lell 40 052767 | 174230 

jele 003546 012713 000103 

lel3 0035Se 032713 040000 


++ + ee 
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BPL 
HLT 


- TEST FOR AN INTERRUPT ON LEVEL 
ies OPE 


Sa sasnswe 


trae S5e 


BMI 


TINTIS: BIT 


TESTI 


ae ee ee + ee ew ee ee 
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TESTIS 


arta QADINT 


eee 


#103; aCRS 
#40000, acrs 


SCADINT) PSR 
#232, JADINT 
as23e 

C 
INTFLG, #100005 
TESTIE 


TEST] 
& , OCRS 


acrs 
8232, JADINT 


a a 


; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 


s INITIALIZE 
1p Bee TTY TO 7 
Te Ror Fan proces f STATUS 

T PR T 

SET EJECT INTERRUPT ENABLE, 

WAIT FOR CARD DONE 
iB STORE PROCESSOR TO HIGHEST PRIORITY 
pe ATE ERUPT RETURN ADDRESS 
CAUSE A HALT IF AN INTERRUPT OCCURS 


ra) tb fe x TES ALREADY RECORDED 


That Phe tT HE INTER Pr LEVEL RECORDED 


Te SI 


a Ie CARD DONE IS SET 
Sener eS UTn T_SET 
FURTHER IERRLP TS 
T_RE S 
i A HALT ion AN INTERRUPT OCCURS 


;RES STACK PO 
- CHECK FOR PREVIOUS F 


#106006, INTEL; FLA Sel LEVEL 


47, aliSGH Re 

#5, Re 

%7' PEOCT 

TEST ie #100005 
peels. 


artis QADINT 
#340 

PSR. (ADINT) 
#340. 


#103" acRs 
#40000, JCRS 


a ee ee ee ee ee 


;SETUP FOR PRINTOUT 
PRINT MESSAGE “THE INTERRUPT LEVEL WAS* 


;PRINT LEVEL NUMBER 


;CHECK PREVIOUS LEVEL 
; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
; TEST <s wok INTERRUPT ON LEVEL 4 


s INITIAL 
s SETUP RET Re fuRN AQoRE 

;SE MOT eR ery 107 

:SETUP RET Te PROCESSOR STATUS 

: 2208 0 LEVEL 3 PRIORITY 


T 
;SET EJECT INTERRUPT ENABLE, AND READ 
;WAIT FOR CARD DONE 


a ee + 





ee ae ee ee ee pee 


_BEGRA. Sec 


a had 


000002 
Oouese 
174776 
174770 


174210 


100004 


174720 
100004 
174040 
ooc0de 
174024 

174016 
173776 


100003 


a a + ee = ee ew ee ae 
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TINTI6: 


; TEST FOR AN INTERRUPT ON LEVEL 3 
SCOPE 


tESsT17: 


HLT 


me re ee ee es ee ee 


2 AQINT),PSR Bs TRTERRUPTS HIGHEST PRIORITY 


#232, JADINT nee 
aaa SO NateE AT TFTON N INTERRUPT occuns 
INTFLG ; CHECK TO ere F LEVEL ADY RECORDED 
NEXT TEST 
i 


TESTI? 
INTFLG, 8100004 } F SO, CHECK TO SEE 

TESTI7 'THAT tHE INTERRUPT LEVEL RECORDED 
;15 BELOW THE CURRENT LEVE 

: INTERRUPT, DIDN'T OCCUR WITH STATUS 
sar LEVEL 4, BUT PREVIOUSLY OCCURRED 


OR ABOVE THIS LEVEL 
TESTI? 
#40000, CRS : MAKE SURE CARD DONE IS SET 

{BRANCH IF 
acrs if pene THER INTERRUPTS 
#232, JADINT pea tae ADDRESS 
ripe iM NR ONTERRUPT OCCURS 

(SP)+. (SP)+ 10 case sTacre POINTER 
INTFLE ‘CHECK FOR PREVIOUS FLAG 


SETY BRANCH IF FLAG SET 

#100004. INTFLC ; SET FLAG BND LEVEL 

aMSG4, Re “SETUP FOR PRINTOUT 

AR Toth ‘PRINT MESSAGE “THE INTERRUPT LEVEL WAS” 
#2 ,PROCT ;PRINT LEVEL NUMBER 

ITELG TFLG, #100004 ;CHECK PREVIOUS LEVEL 


; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 


47 . 

atte? QADINT ;SETUP RETURN ADDRESS 

#340 SET PR 

PSR. 2(ADINT) SETUP RETURN PROCESSOR arATUS 


aud, PSR i SET PROCESSOR PRIORITY TO 0 
T PROCESSOR TO LEVEL 2 PRIORITY 
$103" CRS eet EJECT INTERRUPT ENABLE, AND READ 
#40000, aCRS WAIT FOR CARD DONE 
2(ADINT) ,PSR ave PROCESSOR TO HIGHEST PRIORITY 
RS “DISABLE INTERRUPTS 
#232, JADINT i CHANGE INTERRUPT RETURN ADDRESS 


ase3e 0 CAUSE A T IF AN INTERRUPT OCCURS 
INTFLG CHECK a SEE iam LEVEL | ALREADY RECORDED 


TESTIS 

INTFLG, #100003 TF SO; CHECK TO SEE 

TESTIS ; THAT THE He INTERRUPT LEVEL RECORDED 
t INTERRUPT PDN T OCCUR WITH STATUS 


iBT LEVEL 3, BUT PREVIOUSLY OCCURRED 
AT OR Bove THIS LEVEL 


Se ee eee - 


a a te 8 ee ee eo ee ee ee ioe 


oR 1 D1 Stic TEST MACY11 27(1006) 21-SEP-76 16:56 PAGE 27 
"DEGRA. sre 

1 TEST 
levl chad retake 040000 TINTI?: Bt #40000, aCRS sMAKE SURE CARD DONE IS SET 
leve po04040 001001 BNE +4 ‘BRANCH IF SET 
le74 ahah ake CLR acrs att atin INTERRUPTS 
1275 DO4OMG 012710 o00232 MOV #232, ADINT i CHANGE I INTERRU PT RETURN ADDRESS 
l po40Se 005037 000232 CLR ase Lit BN INTERRUPT OCCURS 
1 CMP (SP)+, (SP) a POIN 
1 > 174516 TST INTEL ie PREVIOUS. ER ac 
l 4 100414 BMI ET3 -BRANCH t 
a een eo wee te lore 
1e8e 604190 Gore DOGDYE JSR %7, TOUT ‘BRIN T MES “THE INTERRUPT LEVEL WAS” 
l i 12702 000003 MOV $3' 
1284 004110 004767 005620 ISR %7 PROCT :PRINT LEVEL NUMBER 
1285 004114 Oo040S BR TESTI 
1286 OON1LE 026727 174460 100003 SET3: CMP INTFLG, #100003 ;CHECK PREVIOUS LEVEL 
1287 124 100001 BPL TESTI8 
1288 004126 104000 HLT ; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
1290 - TEST FOR AN INTERRUPT ON LEVEL 2 
1231 00430 194001 tESsT18 8: SCOPE ‘ 
153 peta atte poesae MOV tiie QADINT INET, STEN AODRE 
12% 004142 052767 OO0340 173626 BIS #340, PSR yu PROCESSOR PRIORITY 107 
1295 OO41SO 016760 173622 o00002 MOV PSR,2(ADINT)  :SETUP RETURN PROCESSOR STATUS 
129% GO4IS6 O427E7 OO034O 173612 BIC #340, °SR SET PROCESSOR PRIORIT 
1297 004164 052767 OO0040 173604 BIS #040; PSR >SET PROCESSOR TO LEVEL 1 PRIORITY 
1298 004172 O1e713 000103 MOV #103; 9CRS SET EJECT INTERRUPT ENABLE” AND READ 
1299 004!76 032713 o40000 BIT #40000, aCRS WAIT FOR CARD DONE 
1300 OO4202 001775 BEQ 
1301 OO4204 015067 oO00002 173564 MOV S(ADINT),PSR  ;RESTORE PROCESSOR TO HIGHEST PRIORITY | 
ee my eet anoint ieee eR eum | 
1304 220 995037 000232 CLR d23¢ :TO RBtISE A RECT A HALT IF aN NRO NTERELP? OCCURS 
1305 OO4224 005767 174352 TST INTFLG “CHECK TO SEE IF LEVEL ALREADY RECORDED 
1306 004230 100044 BPL TESTIS ‘IF NO, go 10 N NEXT TEST 
1307 O04232 026727 174344 100002 CMF INTFLG, #109002 2m SO? CHECK TO SEE 
1308 OO4240 100440 BMI TESTI T THE HE INT ERRUPT LeVEL RECORDED 
i303 ats BELO HE CURRENT LEVEL 
i310 oo4242 104000 HLT s NTRP DIDN'T OCCUR WITH STATUS 
1311 T LEVEL T PREVIOUSLY OCCURRED 
1312 iat Ebove PUTS LEVEL 
1313 OC¥244 000436 BR TEST19 
1314 00424 032713 o40000 TINTI8: BIT #40000, aCRS ;MAKE SURE CARD DONE IS SET | 
1315 O042S2 001001 BNE +4 :BRANCH IF SET 
1316 04254 104000 HLT *CARD DONE WASN’T SET 
1317 004256 005013 CLR aCRS *DISABLE FURTHER INTERRUPTS | 
1318 O04260 012710 ocon232 MOV #232, JADINT ; CHANGE INTERRUPT RETURN ADDRESS 
1319 OO4264 005037 O00232 CLR asso TO CAUSE A HALT IF AN INTERRUPT OCCURS 
1320 004270 O2rb26 CMP (SP) +, (SP)+ *REST: 08 Bok, POINTER 
1321 O04272 005767 174304 TST INTFLE * CHECK LAG 
1322 004276 100414 BMI SET2 =; BRANCH fF F FLAG SET. 
1323 300 7 174274 MOV #100002, {NTFLG ; ;SET ET FLAG AND 
1324 004306 Ole702 014503 MCV #MSG4, Re OR Patti TOUT 
1325 904312 904.c7 OOSE34 ISR ro tout ‘BE INT MESSAGE “THE INTERRUPT LEVEL Was” 


i 


+0 ++ 6 6 « 6 6 ps 


£26225 


sb Bs hs fe eo hs + os FH 8 


Ba2 


aR 
oN (OGD AEE —f 
q 


or RE ROR PRES 4d i 


& 
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Bases SBeabe 798 13" Pct ;PRINT LEVEL NUMBER 


Ope re 174246 «100002 SET2: one iat FLG. #100002 CHECK PREVIOUS LEVEL 
l at ; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
ites igh 8 AN INTERRUPT ON LEVEL 1 

boxes gosde : ieee %7 INIT tense 
12719 , Rov sTtnt19 QADINT ; SETUP RE 
Gierep eect: Aogons ' phe a 3 

Gasre7 1733 BIS ae ‘eet 

12713 103 MOV #103: rar iE 


Q ; 040000 I #40000, acrs T FOR CARD DORE DONE 
& 016067 000002 1733S2 MOV SCADINT), PSR RESTORE PROCESSOR TO HIGHEST PRIORITY 


Brevi oone32 Ov $258, 20D INT lee Ace "RETURN 
borer TPMia6 rst uae cretx ¥6 Seb Ye LEVEL INES GES 


100044 EST20 cH NO, GO TO i 
190001 NTFLG, #100001 iF 904 SET 
EST ; THA t RRUET LEVEL R RECORDED 
104000 HLT ste Bebe Te roe ’T ut SSrat 
sANTERRPT rete 
“AT OR Sbovt TH 
BR TEST20 
13 40000 TINT19: BIT 840000, aCrs ;MAKE SURE CARD DONE IS SET 
001001 BNE +4 s BRANCH IF SET 
1 CLR acrs FuRTIER Tht TS Th oe 
012710 000232 MOV 8232, SADINT ADORESS 
000232 CLR asese ore ¢ A Ne oer a SRO NTERRPY OCCURS 
CMP ( )+, (SP)4 ES{0 ESTA veoint 
174072 TST NTFLE 
100414 BMI ie 2 
012767 100001 174062 MOV 81 1, ifperee T FLAG iO LEVEL 
270g 014503 MOV TUP FOR PRINTOUT 
76 q JSR “7, aaRe NT MESSAGE “THE INTERRUPT LEVEL was” 
Ol27G2 090001 MOV 81;Re 
004767 005174 “SR ed PROCT enue LEVEL NUMBER 
Sos ER TEST20 
026727 174034 100001 SETI: ci INTELG, #100001 :CHECK PREVIOUS LEVEL 
100001 BPL EST 3 
104000 HLT s INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
Aq: TIMING ERROR SHOULDN’T CAUSE AN INTERRUPT 
104001 tEST20: SCOPE 
004767 o04ES2 JSR “7 INIT s INITIAL 
012710 O04634 MOV sTINT2C, MADINT ;LOAD RE POIN TER 
052767 000340 173202 :SET PROCESSOR TO HIGHEST PRIORITY 


BIS 2 € 
016760 173176 oo0dde MOV PSR,2(ADINT)  :LOAD RETURN PROCESSOR STATUS 


ae ee me en wr er ee On ee tee ee ts cee _ 


pee ea ay We? hte MACY11 27(1006) a PAGE 29 














1382 012713 000101 MOV 8101, aCRS ;SET_INT T ENABLE AND READ 
: 304000 f #4000, acs {WAIT FOR TIMING ERROR TO SET 
000340 173154 #340, PSR TO LOWEST PRIORITY 

abe Tne fF 

: oo00002 173144 HOV 2(AOINT) ,PSR SSOR BACK TO HIGHEST PRIORITY 

1 TINT20: HLT é INTERRUPT 

ia Byers SR 

138 MOV 8232, SADINT TO CAUSE A 

se a HAT I F ru CuRS 

l T ,acRS 

1308 Q <4 

i acrs CLEAR INTERRUPT ENAGLE 

l 004660 104001 TEST21: SCOPE 

1 TEST FOR NO Iii T OCCURING WITH RRUF T AND REST CLEARED 

l 767 JSR NIT : 

Not : 73076 ors wee 

1 1 boaoas MOV 2(ADINT) =; 

1403 CLR ; 

1404 1 100 MOV #100, aCRS : 

1405 OON716 000000 Ine ad SWAT AMHI 

id oooon2 173044 MOV aT INT) PSR T T ? 

ie ave YOST PIRER TTEA 

1410 04000 TNINT: HLT At OCCURRED 

Hall GIG Gee gee SIRS ie 

1413 OON744 005037 CONT21: CR * CHANGE INTERRUPT RETURN ADORESS TO 

W418 004750 012710 O00e32 aoa @ADINT >CAUSE A HALT IF AN INTERRUPT OCCURS 

iat waited, send: TerecK Ee BRC TMULT VEL 

1418 OO47S5 OON767 OOWSe $8. ONT ” Roa ite A RO 

1419 72 01271 MOV Ke NT : RE TUR 

1420 173002 BIS H ROC ? 

1421 1 1 po000e MOV 2(ADINT) STOR 3G 

1422 000340 172766 BIC ,PSR SET PROCESSOR TO LEVEL 0 

1423 005010 012713 000193 MOV 8103, aCcRS jSET INTERRUP AND EJECT A CARD 

1 05018 WAIT : ITF FOR ! 

i eos T2INT ore (6)4 ‘pe re Tee B a 

1 Oe o0so44 "MoV ii ,@ADINT Chere run eppneee 

ise Gosde 005067 172744 CLR SET PROCESSOR TO LEVEL 0 

1556 b0S0- nyteeg oo0ct2 172734 nov aon ,PSR ie ORE PROCESSOR TO LEVEL 7 

1432 022626 T2INTA: CMP (6)+, (6)4 RE EARP oct 

eS cel ge” ge cee 

1435 005052 0002 ” €LR oes CHANGE INTER URN ADDRESS 7 
005056 012710 0002 MOV 8232, @ADINT A HAL ae Inte FT BecuRs 


ee ee o 


— mm 


DO3 
| DIOR ORL BragogrIC. Test NACYLI 27(1006) 21-SEP-76 16:Se 9GE 30 








y 
438 O00S062 10400) T23; 
iss AGL Ro 4 ADDRESSING CRB1 OR CRG2 (DATO,DATOB,DATI) SHOULD CLEAR 
1441 00508 767 OO4344 ; ire %7, INIT Dat alti 
DNSD70 1 3ST NG A 
RS Hee ts fe AN OPE, 
| jas 14 1 DATO 19 CRB1 
«NB ee i ty 3A sere 
Bre 1 T :DATO TO CRB] DIDON’T CLEAR READY 
im eeatey TEST24 Be % NEXT 1.84 
) 1450 005119 108713 CNT23A: TSTB © @CRS sWAIT FOR COLUMN READY 
1 114 rath A 1 DATOS TO LOW OF CRBI 
SS Bi is wae ha eg 
he : 404000 fy centee Bate 1 40H BYTE DIDN’T CLEAR READY 
i 1 1087 3 CNT238: i378 : ;WAIT FOR COLUMN READY 
1 132 1 000001 CLRB =i (CRBI) ;DATO® TO HIGH BYTE OF CRBL 
et Geis tae a ne acd : 
[Hoe 142 HLT :DATOS TO HIGH BYTE DIDN'T CLEAR READY | 
1463 144 boowen BR TEST24 :60 
Wes is 105713 CNT23C: TSTB aS :WAIT FOR COLUMN READY | 
IMG? QUEEN 1OS743 rst, oe . EEK COLLEY READY | 
1 1% 1 CNT230 iprerey 1 F GERED 
ies OOsLeS 1 at eau ; TE 0 1 Ot ’T CLEAR READY 
iat boeies ates enteao: Fete tWAIT FOR COLUMN READY 
1i7e 005166 100376 : BPL .-2 ne 
laa foeiy ioeyi9 | ef ihc COLURR READY 
1475 005176 100002 BPL CNT23E “BRANCH IF CLEARED 
14 005200 sowond HLT ae :DATO TO CREE DIDN'T CLEAR READY | 
1478 tose 10S713 CNT23€: FSB sth MATT FOR COLUPW READY 
1 10 1 173424 ; ;DATOB TO LOW OF CRB2 
Bee ee a a acd : 
1483 005220 1 aT BAT OST L On BYTE DIDN'T CLEAR 9EADY 
1484 O0Se2e BR TEST24 ;G0 TO S 
1485 105713 CNTE3F: TSTB ;WAIT FOR COLUMN READY | 
1 B30 (Ol 173404 MOV  GRB2, Re LOAD POINTER 
1488 005234 1 C 1(Re} :DATOB TO HIGH BYTE OF CRB2 
14gs trees 105713 TSTE acs 5 CHECK UMN READY 
1491 104090 HL BRT Oe T chbs Tite BYTE DIDN'T CLEAR READY 
1492 905246 TEST24 :GO TO NEXT TEST 


me me ee ee a eee ee 





E03 
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CNT236: ;WAIT FOR COLUMN READY 


ve 
a eS ce 


;DATI TO CRB2 DIDN'T CLEAR READY 





Tee TF tic TERT AFTER f COLLN READY WITHOUT ING ite Stun, READY 
767 O04140 — aint $M niin _— 
13 NC T ING A CARD 
1 STB ck :CHECK COLUMN READY - WAIT 
oo00c2 


a 


cos ty 


ies O WAIT FOR DONE AFTER ERROR 
CNT24A: an »@CRS CK T a — 
BI #40400, aCRS Ck AND OFF-LINE 

;LOOP IF 


BH ; 

HL ; 

BEQ CNTeYA SET 
; 





_— 


t= Feb 
_ 
eeu z 
— 
[7¥] 


iN - BIT ung ser 80 OUTPUT RESSAGE 

eee Baie Balin 
: i Ml eal ’T CLEAR poy 

Gie743 O¥OH00 END24: 249400, 2CRS SIMING ERROR OF OR OFF-LINE 


8400, 3CRS ;CHECK OFF LINE 


Z 

as 
dt 

- 


- 
uw 


ay ahlas 
4! ~ ° 
~ 
es 
3 
5 


ae 
3 
a3 
238 


ne ee ee ee + 


1 ; F_NOT SET 

BIE) couse HR 2PSarre RY Ook role 
;CHECK SW7 AND RETURN TO TESTI IF SET, AFTER RINGING BELL 
jOTHERWISE GO INTO THE DATA TEST 

1 NOCK: 

ea on _ er BE00, aSHR 

004767 J “7 

005167 TRE 


17322 m4 ; TOGGLE TRACE FLAG 
000167 173314 JMP RESTR 


P 


eee eee Eee 


_——— -— ee ee Se ee ee ae ee ee ee ee ce ee ee es er es ee oe a = ee ee ee + - ee es = — ——s 
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4 


eines 
poe 
=e @ 
RE DR 
Fs eb eat 


, DE 
SE. cenar ELAS APMP MBE 


ALP1: 


' 
| D2oRA-D 
— DZORA. SRC 
Be. | 

; s RRRRARAAKASLSRLAELASSLLLLSLSSSRELASSSELELSSSS LESSEE SS : 

154, rbare RELIABILITY TEST FOR CR11 

: snanbdbacahieauebaanarcersasenesnnenennnsaseaseuess 

i so SR FOR TYPE OF DECK BEING TESTED, AND INITIALIZE POINTERS 

1 oo000ss 001212 BATST: MoV #56, COCNT sSETUP GARD COUNT TO ENTER TABLE CORRESPONDING TO NEXT ¢ 

1 Br DAT’ Te :SKIP NEXT INSTRUCTION 

i 0001768 173152 DATSTI: , SHR 

ie e 

1583 001170 1$: CDCNT ; SETUP COUNT TO NTER DATA T AT BEGINNING 

1 173165 DATSTe: ERFLG “FLAG SET PREV S PRINTING OUT ERROR HEADING 

i #2), aSHR 3 Fa Som hated Ck 

1 ALP BRANCH fF NOT SET TO ALPHANUMERIC POINTERS 

1 eBINCO TSTART Tee 2 SET, LOAD BINARY TABLE POINTERS 

1 NEND, TEND | 
} 
i 


Ri Ris 


—-O00 oa0O 
bh ba po bs ee ee 





SALPEND, TE 
tte CONTD: TST wee Is, beck 
” (BNE TRP1 iBrenecn Tr FLAG une Was” eer 
000340 172222 NOTRPI: HOV a0 PSR “CLEAR TRACE B 
010000 173032 TRPI: BIT tonto, asa CHECK sul2 10 TO INHIBIT TRACE TRAPPING 
DOC360 172202 MOV 
10367 DCNT1: JSR aed, ioe TR Cano READER STATUS REGISTER 
-SET UP INTERRUPT c TART 
pose MOV Int Tp n POI NTER 
40 172164 BIC Mae T PROCE 0 LEVEL O 
600714 i Aco ROMO] OTTERS ARO UETART READING 
walt . ‘ NTT Fon INGERR THRERRUETS 
580 ‘ 
i . i INTERRUPT SERVICE ROUTINE WHICH RUNS DATA RELIABILITY one soat = 
FH } 
1255 Bar OBReET t BOBNCH TE Get 
1E4 105713 TSTB = ACRS. ?CHECK COLUMN READ 
lee 16? > OOT OR te Not cer 
i INC CLCN TRE track OF COLUMN NUMBER 


STORE DATA OF FIRST READ 
SURE COLUMN READY CLEARED 


172104 BIS #340, PSR BE T LEVEL 7. ? 
HL ADING DATA DIDN’T CLEAR COLUMN READY 
JMP LASTC GO TO NEXT CARD AFTER ERROR PRINTOUT 
000750 SCONTI: a ache DaTENC 3S 


8 
oe 
TE 


i 
4 
: 
: 
: 


-~—- += - oe ere ne re ee = er ee wee _- --- mm se re ee es ee ee mm ee eee Oe 


j 
‘ 
' 
} 
| 
| 
| 
i 
| 
' 
' 
} 
| 
' 
| 
' 
' 
! 
' 
f 
j 
' 
i 
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1 12 1 DE COUNT 
1897 i4 pore! -2 
i 4 nov ,baT2 :$T a Fae aa) READ 
i 3 ge pets 
l 005734 Ol2767 O00002 oc0716 MOV 82, PTOFF ee wroe 
1603 a a 000706 che Rte, (RS)+ BEING OF SAME DATA 
1 000702 MOV 84, PTOFF T PO 
1ebe ees Ce DATENG. (RS) Creo EnCbED DATA 
| te le pore p006S4 Rete HECK "FOR TABLE 
tebe Bhere Satake mC ee Eo oF, 
1610 005772 016705 000644 Rov TSTART,RS ROVE Ac TO LOOP THRU TABLE 


; SPECI ONDITION BIT 15 WAS SET WHEN THE INTERRUPT SERVICE ROUT! 
: OUTPUT A MESSAGE AND HALT 





ooood2 
3 p6000 oO 7 O00340 171770 ERSET: ebm #740, PSR sLOCK OUT INTERRUPTS 

161 022767 000120 000630 880. , CDCNT ;CHECK FOR LAST CARD 

161 901908 a ERI TF NOT PRINT OUT MESSAGE | 

1620 OORbee Goione COULD ObbBee oh moo HE as i ea tastes 

is ie lee, ALIN 

1 1565 ER1: MOV 16, R2 :*B] 

ies OO6044 re 01 5 nov a aty pe “REMEDY CONDITION 

i Gaeta Sis J ‘ %, TOUT : AND ERs re ERROR 

1627 167 000350 IMP LASTCK ;SET UP FOR EXT CARD AND GO ON 

1628 006062 052767 O00340 171706 FAIL: BIS 8340, PSR :LOCK OUT INT’ TS 

1629 006070 052713 ooo0a2 BIS 82, aCRS ‘CET EJECT 10 PRE PRE NT TIMING ERROE 

1631 eee Nee 020000 172512 BIT , aSHR CK < ™ 

te 006104 001431 aaa BEG FAILCN :CONTINUE IF NOT SET oe 

ee Geis thee fi: Beat PERL be NPS 

1 OOelIe 67 10 oo TOK st On T 

Goelze 713 ree Fate: BIT acrs | ikeeck Poe cane 

1 006 130 000167 000276 JNP LASTCK :INMIBIT PRIN NTOUT fF TER CARD DONE SET 

1 9061 713 000400 BIT : CHECK 

1641 140 O01 BEG FAIL uf oF NOT 

1 0061 7 000120 900476 CMP #80. , CDOCNT :CHECK FOR LAST CARD 

ies BLS His ‘i . 

1 1 167 O00S04 ALLDON F Last CARD agit? FOR NEXT DECK 

1645 006156 004767 003324 JSR %7 , CKBITB NOT, LAST [ARO PRINT | Ssack 

ib D0b 1 be 7 900352 J %  NXCRO ‘dF ane CARO THRU READER 

i 170 ? 172454 FRILCN rot ERFLG ST FLAG FOR PREVIOUS PR 

te ee See ‘ wee ORE NOME iF oe DON’T BEY BOY EAR ING’ 

l 006176 72446 INC ERFLG SET F pee, 

1gE: B06eDe 012702 O1ss2e MOV eMSG13.R2 oer SEROING FOR DATS ERROR PRINTIL” 
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GodRA. SRE BAL Diagnose So 
i OO82N OON7E7 003740 ISR %7, TOUT 
1 le Gj&702 NOMD: MOV DECK Re sOUTPUT TYPE OF DECK 
i i 14 1a x f 
1 4 MOV NT ;OUTPUT CARD NUMBER WHERE ERROP OCCURREC 
: = Bee % = 
ife pes 16 MOV CLONT ;OUTPUT COLUMN NUMBER WHERE ERROR OCCURRED 
ieee Beare fe OS 
ie eevee 00076 Sus PTORF RE TRACT TF INTER TO POINT “C 
1885 sBUBRESS OF DESIRED PAT SERN 
1664 2508 MOV (RS)4 Re :QUTPUT CORRECT eta eal (NOT ENCODEC » 
1665 003444 ISR %?, 
1 ? QO3e46 JSR %,7' SPACE 
166 16 MOV DAtI, Re ;OUTPUT DATA READ ON FIRST READING OF SUEcES 
1668 7% 30 SR %7 , PROCT 
1669 767 JSR %7° SPACE 
16 10 670g pat? Re sOUTPUT DATA READ ONE MILLISECOND LATER 
1671 14 76 14 JSR “7 , PROCT 
ig 77 003216 JSR %7. SPACE 
1673 Ob 150g MOV Re sOUTPUT CORRECT DATA PATTERN “ENCODED IRM. 
1674 003402 J %7, PROCT 
1675 006332 767 003204 5R %.7. SPACE 
1676 006336 01670 000314 MOV DATENC, Re sOUTPUT DATA READ ‘ENCODED: 
1677 O06242 004767 003366 ISR “7 , PROCT 
1678 006346 104003 KBINTT 
1679 006350 005777 172242 TST aSWR ;CHECK “HALT ON ERROR™ SWITCH 
1680 100001 BPL +4 ; BRANCH IF Not SET 
1681 006356 000000 HALT ‘HALT AFTER AN ERROR 
1682 006360 005713 TST Qcrs ?CHECK ERROR 
1683 006262 100023 BPL LASTCK : BRANCH IF NOT SET 
1684 006364 Oe2767 000120 ocD02s4 CMP 880. CDCNT :CHECK FOR LAST CARD 
1685 006372 001005 BNE FAILCI 
168 006374 032713 O00400 BI 8400, aCRS 
1687 OOE400 001423 BEQ LasTep 
1688 COB4O2 000167 o002S4 JMP ALLDON 
1685 O06406 000167 177366 FAILCI: J ERSE ; OUTPUT ERROR MESSAGE 
1691 pINTERRUET NOT DUE TO ERROR OR COLUMN READY 
1692 O06412 032713 O4CO000 ACTCOL: B 840000, 3CRS ; CHECK a CARD DONE 
re erties pele 000120 sod222 aca MeO CLONT CHECK COL T Bet 
4 4 ** id 
1695 SOENSE rath BEQ +4 ‘Ee nog IF 80 COLUMNS WERE 9EAC 
19 006430 104000 HLT ‘ESS THAN EIGHTY COLUMNS WERE READ 
lv97 O06432 022767 000120 O002D6 LASTCK: CMP #80. CDCNT CHECK FOR LAST C 
1698 OO6440 001403 Q LasTto :BRANCH IF EAST 
1699 O06442 004767 000072 JSR 4.7, NXCRD IF NOT L 
1700 OO6446 900002 RTI :GO ON 
1791 OO64SO LASTCD: CMP (SP)+, (SPi+ IF LAST CARD, RESTORE STACK POINTER 
1702 006452 004767 003004 ISR 47, BELL "RING BELL TO'SIGNIFY “PASS COMPLETE” 
1793 OO64SE Ol oo0042 MOV 3842, Re “MONITOR HOOK 
1704 O06462 001 BEQ ENO 
1795 OO&464 900005 RESET nee 
1706 OOB466 004712 LOGIC: JSR “7, (RE) 
1707 906472 oo0246 NOP 
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a 3 
aa 
aa 

i 





NOP 
? : : CONTINUATION TC ANOTHER DECK 
ie oe 900040 172112 END be e40 aSWR : eSHEGK SR i "ts gNTT DES 
i7ie ooooc2 DECKCK Sonr it TO ANOTHER DEc~ 
i. , 
ici WHEN CONTINUING FROM ONE DECK TO ANOTHER, CHECK She FOR TYPE 
1°15 4 ? 1721 BECKCK oe G : TOGGLE FLAG 
1718 Boeesn : ist 172070 a £100,356 Sere K 3H 
1720 006530 000167 172206 INP RESTRT RERUN eras INSTRUCTION AND DATA TEST 
17 006534 000167 176676 MP DATSTI 
i7e3 O06S54O 016705 000076 NXCRO: MOV TSTART,RS sLOAD RS WITH TABLE STARTING ADDRESS 
1724 006544 006367 000076 CDCNT :MULTIPLY CARD COUNT BY FOUR 
1725 006550 006367 000072 ASL CDCNT 
172 006554 066 000065 ADD EDCNT RS :AOD OFFSET TO RS TO POINT TO NEXT DATUM 
1 Doe Ség 00006 ASR COCNT RESTORE CARD COUNT 
l ASR CDENT 
l 006570 13 000002 BIC 82, aC :CLEAR EJECT IF SET 
isa we pests ooco44 TNE aes sREAG Preck ORO NUMBER 
1732 SOeEee 005067 o00042 CLR CLONT ‘INITIALIZE COLUMN 
1733 006606 000207 RTS : RETURN 
174 - INTERRUPT NOT CASED BY ERROR, COLUMN READY, OR CARD DONE 
1735 006610 OS2767 O00340 :71160 AOTCD: BIS 340, PSR sLOCK OUT FURTHER INTERRUPTS 
1736 006616 032°713 002000 BIT $2000 aCRS : TEST ONL IN TRANSITION BIT 
1737 OO06622 001003 BNE noTCOL RBC IF SET 
1738 rae 194000 , HT pees : Bits SET TO CAUSE AN INTERRUPT 
1338 rier - NOTCD1: HLT N LIne TR TRANSITION CAUSED AN INTERRUPT 
174 006634 000167 177572 ; IMP LASTCK Sint x lanl 
ins Se tir. 8 CEI bee Bist dle 
1744 Dose TEND: 0 SS OF DA 
17M, OOGESE SOOT: OF CO LAR CHECKED 
1747 So655e Tl: : 7 Lee ing Os 
1748 T2: :DATA ON SECOND READ OF CRB! 
1749 006656 DATENC: 0 :DATA READ FROM CRB2 
tye) Soeeee ALCDON: JSR 7. BELL RING BELL POINTER FOR DATA PRENTOU 
toe D06565 ” BIT 400, JCRS [CHECK OFF-LINE BIT 
1753 006572 BNE +4 : H ef T 
i " ~ OAS SET OFTER a CoLUnG orf ve OTH. ca WERE REAC 
17a 006576 032777 OO0040 171712 BIT 840, ISWR ‘ Chere aR FR AAC HALT of. Se 
i 006704 001403 BEG ALCAT : CONTINUE IF NOT SE 
i738 Beis 177600 HAP CECKCK check FoR” i Seo, STING 
} 714 1 171674 ALCNT: BIT 82000, aSWR :D S THIS CR11 USE a M829 MODULE? 
ies Boprse olnss ne INOSSTELS fo ALLOW CARE DONE TS SET 
es Sarah Hea? fo M, Hearn, Tia one He 8 


dadsadee 


dada 


ieuovencos 


— 11) 


ta eet ch 
SESS KKNMKNENEE 


FIR ESRNERVSW LB 


TEST MACY11 27(1006) 21-SEP-76 16:56 PAGE 36 


74 
040000 I #40000, OCRS = ; CHECK CARD DONE 
MT al : CARD DONE DIDN'T SET- THIS S ERROR COULD he 
OREO Be oan Noe EB 44 He gH Hes CH RS scree 
;SWITCH 10 
157377 BIT 81S7377,aCRS | ;ONLY BIT 6 MAY STILL BE SET 
BEQ +4 : BRANCH 
Blac : :STATUS REGISTER INCORRECT 
ALCNTL: CLR 
156377 BIT #156377, aCRS 3 MAY ST BE SE 
og Pe ie INCE C Y NOT 
HE READER % CAUSE 
Bg +4 
HL evans REGISTER INCORRECT 
000340 170760 ALCNT2: BIS 8340,PSR Set PROCESSOR TO LEVEL 7 
170754 o00002 MOV PSR. 2(ADINT) TUP RE TURN STATUS 
INCB = @CRS :ATTEMPT TO READ- SHOULD RESET ERROR 
TST aCRS ; CHECK B t 15 
By ALLOK ; 
HL : SETTING DIDN’T RESET ERROR 
ALLOK Sov potdl QADINT : NTE eT RETURN A ss 
me an. 
NOF . Poa 1A TRERRUt 
oo0002 170714 Mov 2(ADINT) ,PSR RIN PRT oe 
HLT SS ° ml DI PAO Ree 
: *SP)+, (SP)+ ;REST T 
Bratt te RFP AND ERROR 
007132 MOY #SRVC2,9ADINT ;CHANGE INTERRUPT RETURN ADDRESS 
1 MOVB #100, S¢RS : N TS 
170664 BIC x iSR : cess 0 LEVEL c 
cmon BNE : OTEK MT IL ite 
po00002 170650 MOV 2(ADINT),PSR § ;SET PROCESSOR TO LEVEL 7 
HLT NO INTERRUPT 
BR ; BRANCH AROUND 
002324 SRvc2: JSR “7 *RING BELL 
cup (SP)+, (SP)+ *RESTORE STACK POINTER 
002000 SRYC2A: BIT #2000, 3CRS ‘CHECK BIT i 
+4 : H IF SET 
HL ‘BIT 10 NOT SET 
000400 BIT #400, 3CRS “CHECK BIT 8 
BEG +4 :BRANCH IF NOT SET 
HL? :BIT 9 WAS SET 


ay Nae Nee TEST 


ns hee — 





GE SURIGSORES SHOE 


~ eee eee eee ee en 
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;DATO TO CRS 
IBRENGH TP, NOT 10 


oth STACK FROM ROW Ie BHT INTERRUPT 


+ INITIALIZE REGISTERS - 
ne daouLD af poore 


;RUN EACH ERROR TEST ONCE ONLY 
INTEL STATUS REGISTER 

;"PRESS CARD READER TOP’ 
;CHANGE MESSAGE FOR DOCUMATION READER’ 


PRESS LARD READER ’STOP’” 
s“THEN HIT “CONTINUE oN THE CONSOLE” 
“MOVE MESSAGE UP ON 

CK BIT 


ag (BIT 8) WASN'T SET 
; CHECK 5 M a2, 


iB Is West | SET, ’MOTOR START’ AND ‘READ START’”: 


s CHANGE MESSAGE FOR DOCUMATION READER? 


SS CARD READER "RESET’” 
;" THEN HIT ’CONT me A THE CONSOLE” 
MOVE MESSAGE UP ON T 
;WAIT FOR OFF-LINE TO CLEAR 


INPUT HOPPER EMPTY SHOULD SET SPECIAL CONDITION 


R ac 
13 002000 BIT S80, ACRS 
l BE +4 
CHP (SP), (SP)4¢ 
fe? 77314 She sbecxck 
fonts 171426 ERCR1I1: CLR F FLAG 
12767 OO0001 171416 ERCMI1: MOV al, FLAG 
Mesa . TSTA: TIT 
1 Oa aq JSR Fup 
012767 007236 002714 ares rave, RETURN 
104001 so a 
SOE? Doel be oe OT 
ae pea 38 MOV #nSG3,Re 
Brists 171354 TSI FLAG 
1 0144S0 MOV #MSG3A, Re 
004767 OUebbe JSR %7, TOUT 
Big7es Baceds ny GER 
004767 002770 JSR %7; CRLF4 
Baers 000400 I #400, 3CRS 
1 : +4 
bpe7tg fT aces 
100401 BNI +4 
olz70e 014224 8SG1,R2 
00576 171276 Ts FLAG 
te Vv 
Gieme gust ryan Re 
O1270e 014343 nov ance, Re 
Rae Baer fe sda 
000400 BI #400, aCRS 
I BNE 
O4001 tesTB: in 
47, INIT 
Pores al 
004767 O0eS4e2 TSR 47, TOUT 
Bhaoe> Bases as 
004767 002650 JR %7,,CRLFY 
13 o00400 BIT #400, ICRS 
00:001 BNE +4 


GISTER 
THE INPUT HOPPER” 


iTREROVE ALL cA 


;"THEN HIT *CONTINUE’ ON THE CONSOLE” 


;MOVE MESSAGE UP ON TTY 


;CHECK BITS 
BRANCH IF SET 


CIAL CONDITION (BIT 15) AND OFF-LINE 


‘BIT 
| 
| 


i a 


9 
Z 


: 


at 


3 


+ bb - bb Bs Bo he Bw Bo Bo Bp Bo Pope 


Pertti tta att ee Re 


$3 


] DitonemeeoN Gene 


ee ee ee ee en eo oe ed 


iH SSN eR ENeS 


Pb he bbe Bh hs he he he he 


OOO 00000 


RRESRESEE 


er 


Ww 
~— 


wm i ee tees +--+ —_ a eee 


EEE 


11 DIAGNOSTIC TEST MACY11 27(1006) 21-SEP-76 16:56 PAGE 38 
2-NAR-76 00:00 
T F-LI T 
igen ta aU BeAEN Badin 
ey one 
ipsa 014607 HOV Gb, Re € ORE n 1 oe 
Gow7&; O02476 Tsk x, 10UT Fen 
12702 014224 MOV ancl Re "PRESS CARD READER ’MOTOR START’ AND "READ STAPT 
? 171146 TST ; CHANGE MESSAGE FOR DOCUMATION READER? 
poise 014307 EY cm R2 I PRESS CARD READER ’RESET’™ 
004767 o024S4 JSR Tout 
a8 bia HOV ante Re "THEN HIT CONTINUE’ ON THE CONSOLE” 
767 JSR %7, CRLFY sMOVE MESSAGE UP ON TTY 
13 000400 ort 8400, 3CRS ;WAIT FOR OFF-LINE T) CLEAR 
001375 BNE 4 


OUTPUT STACKER FULL SHOULD SET BIT 15 

ai 001704 ‘ %7 INIT s INITIQLIZE STATUS REGISTER 
1 014653 MOV amSG7,R2 RAISE OUTPUT STACKER PRESSURE ARM ABOVE HORIZONTAL THE 
005767 171072 T I FLAG ; CHANGE MESSAGE FOR DOCUMATION READER? 
O1¢702 014771 HOV anc7A, Re "LOWER OUTPUT STACKER PLATE TO BOTTOM” 
Bierbe CE nov eee ;"THEN HIT ’CONTINUE’ ON THE CONSOLE” 
one? ries ER %7" CRLFY :MOVE MESSAGE UP ON TTY 
036713 BIT #400, aCRS : CHECK BIT 8 ‘ 
4ovo0g rt . Ber a Bit 8) WASN’T SET 

1 TST acrs i HECK SPECIAL CONDITION BIT 
100401 BM! +4 : BRANCH HW ; 
yet 014224 nov #MSG1,R2 Phos “sai 1z]o0.N0 motor START’ AND “READ START’™ 
0s 4 171014 TST FLAG ;CHANGE MESSAGE FOR DOCUMATION READER” 
012702 014307 MOV #MSG1A,R2 "PRESS CARD READER ’ 2ESET’” 
004767 322 JSR 47. TOUT 
Ol2702 014343 MOV 
004767 002312 JSR %7, TOUT ;"THEN HIT ’CONTINUE’ ON THE CONSOLE” 
004767 002430 J5R 47, CRLFY “MOVE MESSAGE UP ON TTY 
ieage 00400 ort #400, CRS sWAIT FOR OFF-LINE TO CLEAR 
001375 BNE 4 


A FEED ERROR SHOULD SET BIT 15 
'THIS ERROR OCCURS WHEN THE FEES MECHANISM FAILS TO DELIVER A CARD TO THE READ STATION 
104001 TESTD: SCOPE 


007656 004767 o015S2 JSR %7 INIT 
007662 0 14536 MOV #MSGS, Re "REMOVE ALL CARDS FROM THE INPUT HOPPER” 
007666 004767 002260 JSR 47, TOUT 

007672 Ole702 014343 MOV amSGe, R2 :"THEN HIT ‘CONTINUE’ CN THE CONSOLE” 
007676 004767 002250 JSR 47, TOUT 


we ee ne ae ee ee ee eae ae ee ee Ce —_—----—- -- see me 


a ee er ene e ee se eee 


a es ee ee ee ee ee oe. — ee __-- SC + OO se eee eee eee ey 


j 
| 


} 
bz CRI DIAGNOSTIC TEST MACY11 27(1006) 21-SEP-76 16:56 PAGE 39 
dz pe Nae SEN 


CRA. l 
1932 007702 012702 015040 MOV aMSG8, Re s"HOLO DOWN THE SWITCH AT THE BOTTOM OF INPUT HOPPER 

1933 007708 pos7be 170720 TST FLAG ; CHANGE MESSAGE FOR DOCUMATION READER? 

i 4 : * ane Re PSL IFT SWITCH UNDER RIFFLE CAP 

tage BESSL BASS ye th 

1937 007724 Jl2702e O14224 MOV G1,Re s"PRESS CARD READER ‘MOTOR START’ AND "READ START’ 

1338 res rate 170676 TSI FLAG : CHANGE MESSAGE FOR DOCUMATION READER? 

i333 rey 014307 Be aecia R2 :"PRESS CARD READER 'RESET’” 

ine forme Grey Bese fh Gy crave vesance ON TT 

ta43 Sov7es 00000 HaCT 

iva eed 3c? 002000 It #2000, aCKS :WAIT FOR CARD READER TO COME ON-LINE 

1946 004767 001446 ISR 47 INIT : INITIALIZE agg htus REGISTER 

1947 007765 012713 000003 MOV #3, 9CRS set EJECT AND READ 

1948 007772 O0S227 000000 INC #0 WAIT AWHILE 

1949 007776 001375 BNE 4 

1950 010000 O00S227 000000 INC #0 

1951 010004 001375 BNE 4 

1952 010006 005227 o00000 INC #0 

1953 O100i¢ 091 BNE 4 

1954 010014 poo000 INC #0 

1955 010020 001375 BNE 4 

1958 010022 032713 o00400 BIT #400, 3CRS ;TEST OFF-LINE BIT 

1957 010026 001001 BNE +4 : BRANC 

1958 010030 104000 HLT *BIT 8 WAS NOT SET | 
1959 010038 005713 TST acRS °C BIT 
190 O01 100401 BMI +4 : | 
1961 010036 104000 HLT *BIT 15 WAS NOT SET 
ies flee goer Baie ste 05 JN Te eur Hore : 
1 pt ate GH MOV #M5G1,Re2 PRESS CARD R 'MO OR” START” AND "READ START*™ | 
1965 010054 005767 170552 TST FLAG HANGE MESSAGE FOR DOCUMATION READER? | 
1966 010060 001402 BEQ +6 | 
197 010062 012702 014307 MOV #MSG1A,Re 1 ces CARD READER ’RESET’” | 
1968 010066 004767 OO2060 JSR 47, TOUT | 
1969 010072 Ol2702 014343 MOV amSGe, Re “THEN HIT ’CONTINUE’ ON THE CONSOLE” | 
1970 010076 004767 002050 JSR  %7, TOUT 
1971 010102 004767 002166 ISR 47, CRLFY ;MOVE MESSAGE UP ON TTY 
1972 010196 900000 HALT 
1973 010110 032713 ooD490 BIT #400, 3CRS ;WAIT FOR OFF-LINE TO CLEAR 

1974 010114 001375 BNE oy | 
1975 010116 005767 170510 TST FLAG ;SKIP NEXT TEST IF DOCUMATION READER 

1976 O10le2 001402 a BES +6 

1977 0101e4 000167 000314 IMP TESTG 

1979 ;A MOTION ERROR SHOULD SET BIT 15 
1980 THIS ERROR OCCURS WHEN A CARO JAM OCCURS AT THE READ STATION 
1981 10130 104001 tESTE: SCOPE 
1982 010132 004767 001276 JSR “7, INIT ;INITIALIZE STATUS REGISTER 
1983 010136 01 4410 MOV #5G3, Re "PRESS CARD READER "READ STOP’” 
1984 010142 00476 004 JSR 47. TOUT 
1985 010146 Ol2702 014343 MO G2, Re ;"THEN HIT *CONTINUE’ ON THE CONSOLE” 

1986 010152 004767 001774 ISR 47 TOUT 
1987 O10156 Ole7f2 015170 MOV #SG9, Re ;"BLOCK THE CARD READER STATION TO 





ee ee ene Ce ee ee SS ee ee 


' DDORA-D CR11 DIAGNOSTIC TEST MACYL1 27(1006) 21-SEP-76 16:56 PAGE 40 
| DZCRA.SRC 12-MAR-76 00:00 
1988 010162 7? 001764 ISR %7, TOUT sPREVENT A CARD GOING THRU, _AND” 
1989 rate eae ge 4224 MOV aS "PRESS CARD READER ’MOTOR START’ AND 'READ START’™ 
1990 010172 JSR %7, TOUT 
ie thes mar %7, CRLF4 0a MESSAGE UP ON TTY 
ie wen give Sen. UNE me Be 
ise Bile flssi 1 i ae 30413 
fee pivele plsris sonm3 A Wiens | SNe Lani ae 
13a, places es eo acRS SRE CK SPECIAL CONDITION BIT 
1338 ste 1 1 BMI +4 i ex sp it Sef 7 on 
SBRD RIRESS A720R8  oisaze ¥ aNSG10, R2 ‘Seca GENRE. CORD 
2002 010236 004767 001710 ISR 47, TOUT 
ens 01 14 MOV aS "PRESS CARD READER ’MOTOR START’ AND ‘READ START” 
1 76 1 JSR %7. TOUT 

2005 Ol 012702 014343 MOV amSGe, Re ;"THEN HIT ’CONTINUE’ ON THE CONSOLE” 
2006 010256 004767 (01670 ISR %2, TOUT 
oe pt pores 002006 oy %7, CRLFY ;MOVE MESSAGE UP ON TTY 
2009 010270 032713 oo0400 BIT #400, ICRS ;WAIT FOR OFF-LINE TO CLEAR 
2010 010274 001375 BNE 4 
2012 ;A STACK FAIL ERROR SHOULD SET BIT 15 
2013 “ERROR OCCURS WHEN 3 CARDS IN A ROW HAVE NOT BEEN DELIVERED PROPERLY TO THE OUTPUT STACK 
2014 Cc 027% 104 1 TESTF: SC 
2015 010300 5 Ob 001130 47, INIT sINITIALIZE STATUS REGISTER 
2916 010304 Ol2702e O14410 MOV #M5G3, Re *"PRESS CARD READER READ STOP’” 
2017 010310 004767 001636 JSR 47. TOUT 

1g 1 O1e708 O14 343 MOV R2 one HIT ’CONTINUE’ ON THE CONSOLE” 

19 O1 1626 JSR “7 
2020 010324 012702 015317 MOV #M5G11,Re ;"HOLD THE OUTPUT STACKER GATE OPEN. THEN” 
2021 010330 004767 001616 ISR 47, TOUT 
2022 010394 O1e70e O14ee4 nov anscl R2 eee, CARD READER *MOTOR START’ AND 
2024 rick pOIae 001724 JSR ‘ 12 1T MOVE ME SoAGE UP ON TTY 
2026 010352 032713 002000 BIT #2000, 3CRS et FOR CARD READER TO COME ON-LINE 
siee iBES rar mia 

10360 012701 o00003 MOV #3, COUNT s INITIALIZE COUNTER TO READ 3 CARDS 

2029 010364 012713 000093 LOOPF: MOV #3, 3CRS sEJEET A CARD 
2030 O01 140000 BIT #140000, 3CRS WAIT FOR CARD DONE OR SPECIAL CONDITION 
soa ot ; 1 BEC éou T T 
oha5 01 1371 BNE L a Cans ALL TOGETHER 
2034 O10402 005713 TST aCRS : CHECK SPECIAL AEGNDS TION BIT 15 
2035 10404 1 BN +4 BRANCH TF 

36 10408 104 Ht ;SPECIAL ¢ ITION NOT SET 
2037 010410 Ol2702 o14224 Vv #MSG1,R2 >"PRESS CARD READER "MOTOR START’ AND ‘READ START’” 
stag ste ae pases son on Tour, “THEN HIT "CONTINUE’ ON THE CONSOLE” 
2040 15 ees pies ISR 47, TOUT . 
204i O10430 O0f4767 001640 ISR 47" CRLFY ;MOVE MESSAGE UP ON TTY 
2042 010434 00000 HALT : 
2043 81043 032713 oco4o0 BIT #400, 2CRS :WAIT FOR OFF-LINE TO CLEAR 
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S 


Ree oe REO. IRR RS 


ie Oid44e = 20i3"S 


30498 TEST IS SKIPPED IF BIT 0 OF THe SWITCH REGISTER E 
see 1. re EDGE OF pepe CARD S 
£05 2. tak eer “LONG” CARD-I7 ONLY NEEDS 70 BE 
Sos4 glow 104°] teste SCOPE T 1/2 HHH LONGER Tt REGIA Cio 
3 ‘ 4 C 
ce HRS Big cum me BPR tiie ny 3 
; OL 00475? 001000 ISR %7, BELL i SET, RING BELL AND 
ES Bidves 1 g 007235 201456 HOV STESTA*2, RETURN ; Pay SCOPE LOOP RETURN RODRESS 70 oo? THRU TESTS 
2061 Gioirg 162 inbo3s CONTG: JSR M7 INIT SPNETIAL for sTATue eer SPER 
2062 i 005001 CLR COUNT : INITIALIZE COUNTER. ‘ 
Se, HR Bre aca AY lose Sita? BRITA AME Sec, ows csr List, 
ebb Giteig rites LOOPG: MOV sM$G1,R2 Re EarD READER © FAoTOd stat. AND ’READ START’™ 
1 1701 TST FLAG iC DOCUMATION READER” 
2088 010526 001402 Q . +6 ;NO 
2069 010530 016702 014307 MOV 8NSG1A,Re "PRESS CARD READER ‘RESET’" 
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5518 ll sSTART NEXT CARD AFTER CHECKING BIT 8 
2218 O11 TOTERR: 
2219 O11 TOTCRD: 
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